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ABSTRACT 


This  report  describes  the  research  performed  in  the  inter- 
face of  the  COBOL  and  FORTRAN  programming  languages  on  the 
IBM  370/3033  and  the  Honeywell  6080  computers.  It  identifies 
specific  problem  areas  in  the  linkage  of  the  two  languages 
and  the  transference  of  programs  between  machines.  The  report 
also  includes  solutions  and  alternatives  to  most  difficulties 
encountered  and  recommendations  for  successful  language 
interface  and  program  transfer  from  one  computer  to  the  other. 
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SECTION  1 . INTRODUCTION 

1.1  Background.  The  computer  is  a very  useful  machine.  It  can 
be  used  to  process  a large  amount  of  data  or  perform  an  enormous 
number  of  computations  in  a very  short  period  of  time.  Unfor- 
tunately, the  utility  of  a computer  is  limited  by  one's  inability 
to  easily  and  correctly  instruct  the  machine  in  the  task  to  be 
performed  and  efficiently  transfer  data  to  and  from  the  machine. 
To  help  resolve  this  limitation,  a number  of  computer  "languages" 
have  been  devised.  Some  of  these  languages  work  well  for  data 
processing  requirements,  but  have  severe  limitations  when  used 

to  perform  complex  computations;  hence,  computer  languages  have 
also  been  developed  for  these  complex  computations,  but  these 
languages  have  serious  limitations  when  used  for  data  processing. 
Attempts  have  been  made  to  write  languages  that  strike  a balance 
between  data  processing  and  computational  usages;  however,  com- 
puter programmers  are  most  familiar  with  language  limitations  in 
either  data  processing  or  computational  applications.  Therefore, 
it  often  becomes  necessary  to  use  more  than  one  language  in  the 
same  computer  program.  This  application  generates  problems 
involving  interfacing  or  "linking"  the  modules  of  one  language 
to  the  modules  of  another. 

1.2  Purpose.  The  purpose  of  this  report  is  to  examine  these 
problems  as they  occur  on  the  Honeywell  6080  and  IBM  370/3033 
computers  and  propose  solutions.  The  following  paragraphs 
describe  some  of  the  problems  in  detail. 

1.3  Motivation.  The  Air  Launched  Cruise  Missile  (ALCM)  stra- 
tegic  planning  will  be  accomplished  at  Headquarters,  Strategic 
Air  Command  (HQ  SAC)  on  the  TRIAD  COMputer  System  (TRICOMS)  using 
the  IBM  370/3033  computer.  Some  contractor-produced  code  will 

be  written  in  the  FOBmula  TRANslation  (FORTRAN)  language  and  will 
require  interfacing  with  Common  Business  Oriented  Language  (COBOL) 
programs.  Many  of  these  programs  will  be  written  by  HQ  SAC  com- 
puter programmers.  In  addition,  some  programs  will  be  trans- 
ferred between  the  Honeywell  and  IBM  machines.  Information  from 
various  documents  and  the  experience  of  HQ  SAC  programmers  was 
gathered  and  documented  in  this  report  to  facilitate  the 
writing  of  these  interfaces  and  the  transference  of  programs 
for  the  ALCM  project. 

1.4  Programming  Languages.  Two  higher  level  languages  will  be 
described  in  this  report:  COBOL  and  FORTRAN.  These  two  lan- 
guages have  been  approved  by  the  Joint  Cruise  Missile  Project 
Office  ( JCMPO)  for  use  in  the  ALCM  Mission  Planning  System. 

COBOL  is  useful  for  manipulating  the  data  but  has  serious  short- 
comings when  used  for  sophisticated  computations.  Hence,  the 
computer  programs  that  will  perform  sophisticated  computations 
are  normally  written  in  FORTRAN.  Unfortunately,  FORTRAN  does 
not  manipualte  data  records  and  files  very  well;  therefore, 
these  two  languages  are  used  together  to  take  advantage  of  their 


unique  capabilities.  The  problem  of  passing  information  from 
one  language  to  another  can  be  difficult. 


1.5  Computer  Hardware.  It  is  possible  to  give  instructions 
and  data  to  a computer  (i.e.,  program  it)  without  any  knowledge 
of  the  electronic  systei.j  that  do  the  computations  or  proces- 
sing. Of  course,  the  more  one  knows  about  the  hardware 
(electro/mechanical  systems)  of  a computer,  the  more  one  is 
able  to  do  with  the  computer.  The  higher  level  languages 
usually  require  no  knowledge  of  the  computer  hardware.  This 
attribute  of  a higher  level  language  makes  possible  the  direct 
transfer  of  a program  from  one  computer  to  another  although  the 
hardware  may  be  quite  different.  Theoretically,  this  attri- 
bute makes  programming  for  different  machines  easy  if  standard 
higher  level  languages  are  used.  In  practice,  however,  several 
problems  arise.  Different  machines  represent  data  differently. 
For  example,  the  IBM  370/3033  represents  a real  "floating  point" 
number  with  32  bits  where  the  Honeywell  6080  uses  36  bits  for 
the  same  number.  Hence,  a direct  transfer  of  data  from  an  IBM 
produced  data  record  to  a Honeywell  machine  may  not  be  possible. 
This  type  of  situation  exists  on  the  same  machine  between  dif- 
ferent languages.  For  example,  COBOL  on  the  IBM  machine  may 
produce  data  that  cannot  be  interpreted  by  a FORTRAN  program 

on  the  same  machine.  In  addition  to  this  problem,  a higher 
level  language  may  be  able  to  link  together  its  own  subroutines, 
but  not  link  up  with  the  subroutines  produced  by  another  higher 
level  language  on  the  same  machine.  For  example,  a COBOL  sub- 
routine may  not  be  able  to  use  a FORTRAN  subroutine  in  the  same 
way  it  uses  another  COBOL  subprogram.  Finally,  data  sets  gen- 
erated by  one  higher  level  language  may  not  be  compatible  with 
another  higher  level  language.  For  example,  a FORTRAN  program 
may  not  be  able  to  read  a COBOL  produced  file.  All  these  prob- 
lems are  discussed  in  this  report. 

1.6  Assembler  Language.  A word  should  be  said  about  assembler 
languages.  These  special  languages  are  peculiar  to  the  specific 
machines  for  which  they  are  designed.  For  example,  the  Honey- 
well 6080  assembler  is  called  GMAP  and  the  IBM  370/3033  assem- 
bler is  BAL.  Neither  will  work  on  the  other  machine  because 
they  are  hardware  oriented;  hence,  the  use  of  these  languages 
prohibits  the  direct  transfer  of  a program  from  one  machine  to 
the  other  and  presents  further  linkage  problems  when  used  with 
COBOL  or  FORTRAN.  Normally,  the  use  of  assembler  languages  can 
and  should  be  avoided;  hence,  this  report  will  not  discuss 
assembler  linkage  to  higher  level  languages  in  detail. 

1 . 7 Documentation . The  typical  computer  reference  library  has 
numerous  volumes  that  discuss  almost  every  aspect  of  computer 
software  and  hardware.  Unfortunately,  most  documentation  is 
confined  to  the  discussion  of  one  higher  level  language  or  the 
requirements  of  a "loader"  with  respect  to  linking  software 
produced  by  several  higher  level  languages  at  the  machine 
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language  level  (lowest  level).  However,  little  is  said  about 
the  interfacing  of  higher  level  languages  at  the  higher  level. 

No  document  is  known  to  the  authors  that  compares  the 
Honeywell  6080  to  the  IBM  370/3033  in  sufficient  detail  to  per- 
mit a transference  of  mixed  higher  order  languages  between  the 
machines.  This  report  is  intended  to  fill  many  of  these  voids. 

1.8  The  Linkage  or  Interface  Problem.  In  this  report,  sub- 
routine linkage  will  mean  all  the  factors  that  need  to  be  examined 
to  properly  pass  information  from  one  subroutine  to  another. 

Each  higher  level  language  has  its  own  way  of  accomplishing 
interfaces  between  its  subprograms.  Unfortunately,  these  tech- 
niques are  not  always  common  to  different  higher  level  languages, 
even  on  the  same  machine.  For  example,  the  COBOL  program  may 
call  a subprogram  with  the  code: 

CALL  BLEEP  USING  ZONK,  BLOOP,  UP-DATE. 

The  equivalent  FORTRAN  code  is 

CALL  BLEEP  (ZONK,  BLOOP,  UPDATE) 

Note  that  "UP-DATE"  is  not  permitted  in  FORTRAN.  Also  FORTRAN 
assumes  that  "UPDATE"  is  a real  number  of  one  computer  word 
length  (32  bits  in  the  IBM  computer  and  36  bits  in  the  Honeywell 
computer) . In  the  COBOL  program  UP-DATE  could  be  any  kind  of 
data,  even  a type  that  FORTRAN  cannot  read.  However,  since  the 
variables  "ZONK,  BLOOP  and  UP-DATE  or  UPDATE"  represent  memory 
locations,  the  computer  will  attempt  an  interface.  Hence,  if 
"BLEEP"  is  a FORTRAN  subroutine  being  called  by  a COBOL  program, 
UP-DATE  will  be  interpreted  by  the  FORTRAN  rqutine  as  a real 
number  (unless  told  to  do  otherwise)  and  will  be  used  in  this 
way  even  though  the  COBOL  program  considers  it  a completely  dif- 
ferent type  of  datum.  Since  the  computer  will  seldom  detect  a 
linkage  problem  of  this  type,  the  results  of  the  data  manipula- 
tion or  computation  may  be  grossly  in  error.  Even  worse,  the 
FORTRAN  program  could  expect  an  array  or  table  at  UPDATE  and 
read  more  data  than  the  COBOL  program  intended.  Another  interest 
ing  problem  arises  when  interfacing  COBOL  and  FORTRAN  arrays. 

The  COBOL  and  FORTRAN  subscripting  conventions  are  different. 
COBOL  stores  arrays  in  row  order;  i.e. , the  right  most  subscript 
varies  most  rapidly.  FORTRAN  stores  arrays  in  column  order;  i.e. 
the  left  most  subscript  varies  most  rapidly. 

1 . 9 The  Report  Contents . Section  2 of  this  report  summarizes 
the  conclusions  and  recommendations.  The  two  higher  level  lan- 
guages, COBOL  and  FORTRAN  are  described  and  compared  in  Section  3 
The  Honeywell  6080  and  IBM  370/3033  are  described  in  Section  4. 
Data  representation  on  both  machines  and  in  the  two  languages 

is  described  in  Section  5.  Section  6 goes  into  the  detail  of 


linking  subprograms  to  one  another.  The  Job  Control  Language 
requirements  pertaining  to  the  use  of  more  than  one  higher 
level  language  are  discussed  in  Section  7.  Finally,  Section  8 
describes  some  "tricks  of  the  trade"  to  get  around  some  of  the 
stickier  problems  of  subprogram  linkage. 


SECTION  2.  CONCLUSIONS  AND  RECOMMENDATIONS 


2 . 1 Purpose  and  Scope . This  section  summarizes  the  conclusions 
of  the  research  accomplished  concerning  the  linkage  of  COBOL  and 
FORTRAN  computer  programs.  No  research  of  this  character  can 
exhaust  the  possible  problems  associated  with  this  linkage  nor 
cover  all  the  solutions  to  these  problems.  The  research  was 
performed  in  sufficient  depth  to  make  recommendations  that  will 
insure  that  problems  with  linkage  will  be  minimized  or  at  least 
identified.  These  recommendations  are  included  in  this  section 
after  a discussion  of  the  conclusions. 

2.2  Conclusions.  Serious  problems  may  occur  when  attempting 

to  link  a COBOL  produced  program  and  a FORTRAN  produced  program. 
The  computer  will  seldom  detect  these  problems,  and  the  program 
may  not  process  the  data  as  the  programmer  intended.  The 
greatest  problem  occurs  in  the  transference  of  data  from  a 
program  created  by  one  compiler  to  a program  created  by  another 
compiler.  Conclusions  and  report  references  are  listed  below: 

a.  COBOL  programs  and  FORTRAN  programs  can  be  linked 
together.  Difficulties  may  arise  when  passing  data 
between  them.  Insuring  that  data  descriptions  are  the 
same  in  both  languages  is  imperative.  (1.8,  4.6,  6.5, 
6.6.1) 

b.  Most  types  of  data  can  be  passed  between  COBOL  and 
FORTRAN  with  little  or  no  trouble.  Other  data  types 
require  special  handling  either  in  the  driver  or  in  the 
subroutine.  (4.7,  Fig  5-1  thru  Fig  5-4) 

c.  Group  items  may  be  passed  from  a COBOL  program  to  a 
FORTRAN  subroutine  on  a limited  basis,  as  they  must  be 
read  into  a FORTRAN  array  and  are  subject  to  the  require- 
ments thereof.  (5.2. 3.4.4,  5.3. 3.4.4) 

d.  (Honeywell)  When  more  than  one  program  is  compiled  for 
execution,  the  $ ENTRY  card  in  the  Job  Control  Language 
insures  control  enters  the  correct  program  as  the  driver 
or  main  program.  (7.3.3) 

e.  When  testing  and  debugging  programs,  using 

selected  options  in  the  Job  Control  Language  can  be  of 
great  help  in  locating  errors.  (7.3) 

f.  (Honeywell)  No  way  was  found  to  pass  a file  code  between 
a COBOL  program  and  a FORTRAN  program  <sing  the  CALL 
statement.  The  file  must  be  created  or  identified  in 
the  COBOL  program  and  accessed  by  the  FORTRAN  program 
using  a $ FILE  card  for  each  language  and  the  same  LUD 
(Logical  Unit  Designator).  (7.3.8) 
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g.  When  interfacing  COBOL  and  FORTRAN  programs,  output 
files  must  be  closed  when  transferring  control  to  a 
subroutine  or  back  to  the  driver.  (Attachment  8) 

h.  COBOL  PROGRAM-IDs  which  contain  more  than  6 characters 
may  cause  problems  when  called  from  FORTRAN.  (Section 
8) 

i.  IBM  COBOL  requires  the  use  of  a LINKAGE  SECTION  in  a 
called  COBOL  program.  (6. 3. 2.1) 

2 . 3 Recommendations . The  linking  of  programs  written  in  dif- 
ferent  languages  for  arbitrary  reasons  is  to  be  avoided.  How- 
ever, if  linking  programs  of  different  languages  cannot  be 
avoided,  the  following  practices  are  recommended  to  insure 
successful  linkage: 

a.  All  COBOL  computational  items  should  be  synchronized. 
(4.7g,  5. 2. 1.2) 

b.  Programmers  should  carefully  study  the  linkage  descrip- 
tions in  applicable  technical  manuals  before  linking 
programs  produced  by  different  compilers.  (Section  6) 

c.  In  COBOL  data  descriptions,  FILLER  strings  should  be 
used  to  align  items  even  when  the  compiler  would  insert 
them.  (5. 2. 3. 4.1,  5. 3. 3. 4.1) 

d.  In  COBOL,  01  level  items  should  be  used  in  WORKING- 
STORAGE  in  place  of  77  level  items.  (5. 2. 3. 3.1, 

5. 3. 3. 3.1) 

e.  Use  the  "QUOTE"  parameter  in  IBM  COBOL  JCL  to  maintain 
ANSI  standards. 

f.  Avoid  the  use  of  double  word  integers  in  COBOL.  (Section 
8) 

g.  Never  pass  packed  decimals  to  a FORTRAN  routine.  (4.7b, 
Figures  5-1,  5-3) 

h.  Avoid  passing  double  word  integers  to  FORTRAN  routines. 
(Section  4 and  8) 

i.  When  passing  data  items  from  COBOL  to  FORTRAN,  always 
pass  them  to  items  of  equivalent  FORTRAN  descriptions. 
(Fig  5-1  thru  Fig  5-4) 

j . Start  separate  display  or  character  items  on  word 
boundaries.  (5. 2. 3. 4. 2,  5. 3. 3. 4. 2) 


k.  COBOL  tables  should  be  passed  to  FORTRAN  using  the 
table  name  only  if  the  items  are  homogeneous  and 
synchronized.  Otherwise  pass  the  data  item  by  item. 

(5. 2. 3. 4. 4,  5. 3.3. 4. 4) 

l.  Programmers  should  insure  that  items  to  be  compared 
are  justified  properly  within  the  computer  words. 

(4.7,  5. 2. 3. 3,  8.8) 

m.  Always  use  a PROGRAM-ID  which  contains  6 or  fewer 
characters.  (Section  8) 

n.  (Honeywell)  Always  use  the  $ ENTRY  card  when  executing 
more  than  one  program  at  a time.  (7.3.3) 

o.  Never  use  DISPLAY  for  items  used  in  arithmetic  compu- 
tations. (5. 2. 1.7,  5. 3. 1.6) 

p.  Never  pass  COBOL  numeric  data  in  DISPLAY  format  to  a 
FORTRAN  routine  when  the  FORTRAN  routine  assumes  the 
data  is  not  in  character  format.  (Figures  5-1,  5-3) 

q.  Always  use  available  JCL  features  to  assist  testing 
and  debugging.  (Section  7) 

r.  (IBM  ONLY)  Use  FORTRAN  JCL  DDNAME  in  COBOL  to  refer  to 
the  same  file.  (Attachment  4) 

s.  (Honeywell)  Do  all  writing  in  COBOL  driver  to  avoid 
carriage  control  problems  in  FORTRAN.  (6.5.4) 

t.  Reverse  subscripts  of  COBOL  table  elements  when  using 
the  table  in  a FORTRAN  subroutine.  (8.2) 

u.  Write  a "stub"  program  with  simple  data  to  test  and 
insure  proper  linkage  before  attempting  to  link  more 
sophisticated  code  and  data  (8.12) 


SECTION  3.  COBOL  and  FORTRAN 


3.1  Introduction.  The  ALCM  planning  system  will  use  the  COBOL 
and  FORTRAN  computer  languages.  This  section  describes  and  com- 
pares the  basic  features  of  these  languages  to  establish  the 
relationships  between  the  features  of  different  languages  that 
are  intended  to  perform  similar  tasks.  The  formats  of  these 
languages  and  the  words  the  computers  recognize  as  instructions 
are  discussed.  Data  representation  is  discussed  in  Section  5. 

3.2  COBOL.  The  Common  Business  Oriented  Language  (COBOL)  pro- 
gramming language  was  introduced  in  1960  for  business  data  pro- 
cessing purposes.  It  has  become  one  of  the  most  widely  used 
languaaes  resisting  attempts  to  replace  it  with  more  general 
languages.  (19.1173  - 1174) 

3.2.1  The  COBOL  Divisions.  A COBOL  program  consists  of  four 
divisions:  IDENTIFICATION , ENVIRONMENT,  DATA,  and  PROCEDURE. 

a.  The  IDENTIFICATION  DIVISION  gives  a name  to  the  program. 
The  program  name  is  the  primary  symbolic  reference  for 
the  program;  that  is,  it  is  the  symbol  for  the  starting 
address  for  the  program  instructions.  The  IDENTIFICATION 
DIVISION  may  contain  other  information,  but  only  the 
program  name  is  recognized  by  the  machine  and  this  name 
is  vital  to  linking  the  COBOL  program  to  any  other 
program. 

b.  The  ENVIRONMENT  DIVISION  consists  of  two  sections:  the 
CONFIGURATION  SECTION  and  INPUT-OUTPUT  SECTION.  The 
CONFIGURATION  SECTION  describes  the  computer  hardware 
configuration  and  special  names  assigned  to  hardware  by 
the  programmer.  The  paragraphs  of  the  CONFIGURATION 
SECTION  called  SOURCE-COMPUTER,  OBJECT-COMPUTER,  and 
SPECIAL-NAMES  should  not  affect  linkage  since  they  nor- 
mally affect  only  the  COBOL  compilation.  The  FILE- 
CONTROL  paragraph  of  the  INPUT-OUTPUT  SECTION  identifies 
files  with  peripheral  devices.  This  information  must 
correspond  to  file  codes  (Honeywell)  or  data  names  (IBM) 
in  the  Job  Control  Language  (JCL) . For  example,  the 
Honeywell  COBOL  statement 

SELECT  FILE1  ASSIGN  TO  AB,  ACCESS  IS  RANDOM. 

assigns  a random  access  file  called  FILE1  to  a device 
identified  in  the  JCL  as  AB.  The  equivalent  IBM  state- 
ment is 

SELECT  FILE1  ASSIGN  TO  DA-D-AB,  ACCESS  IS  RANDOM. 
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Note  that  the  IBM  sentence,  contains  the  extra 
characters  DA-D-AB  for  the  class  of  device,  which  in 
this  case  is  mass  storage.  The  single  character  D 
is  the  organization  of  the  file.  D implies  direct 
organization  as  opposed  to  sequential.  The  Honeywell 
class  and  organization  is  determined  by  the  JCL.  As 
will  become  apparent  in  Section  7 , this  information 
is  important  for  linkage  purposes.  The  I-O-CONTROL 
paragraph  describes  special  file  techniques  that  will 
normally  not  affect  other  subprograms,  but  may  con- 
tain information  about  the  location  of  files  on  tapes, 
and  information  about  file  label  and  record  conven- 
tions that  may  be  useful  in  establishing  linkage  with 
other  subprograms. 

The  DATA  DIVISION  of  a COBOL  program  establishes  the 
form  of  the  data  that  each  variable  represents.  It 
consists  of  three  sections:  FILE,  WORKING-STORAGE,  and 
(OPTIONAL)  REPORT  SECTION.  Also  when  data  must  be 
passed  from  one  program  to  another  program  a LINKAGE- 
SECTION  (IBM)  must  be  coded  in  the  program  receiving 
the  data.  The  FILE  SECTION  contains  file  descriptions. 
The  WORKING-STORAGE  SECTION  contains  data  descriptions 
of  the  variables  used  internally  to  the  program.  Hence, 
the  FILE  SECTION  links  the  computer  memory  to  external 
media  and  the  WORKING-STORAGE  SECTION  describes  the 
representation  of  the  data  within  memory.  This  config- 
uration permits  rapid  transfer  of  data  from  the  external 
media  to  memory.  The  conversion  of  the  data  to  workable 
form,  as  defined  in  the  WORKING-STORAGE  SECTION,  may  be 
accomplished  when  required.  The  knowledge  of  data  for- 
mat is  essential  to  correct  subprogram  linkage.  As  will 
become  more  apparent  with  the  discussion  of  FORTRAN,  the 
COBOL  means  of  transferring  data  to  and  from  external 
devices  is  superior  to  the  FORTRAN  method.  The  REPORT 
SECTION  is  a COBOL  peculiar  feature  which  should  never 
involve  linkage.  Hence,  it  will  not  be  discussed.  Data 
representation  is  discussed  in  detail  in  Section  5. 

The  PROCEDURE  DIVISION  contains  all  the  algorithms  and 
steps  to  do  the  task  required  of  the  program.  It  is 
divided  into  sections  called  paragraphs  which  consist  of 
sentences.  These  sentences  are  terminated  by  a period 
and  a space.  The  PROCEDURE  DIVISION  is  translated  by 
the  compiler  into  assembler  and  machine  language 
instructions . 
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3.2.2  COBOL  Verbs.  COBOL  sentences  consist  of  combinations 
of  words  and  symbols  and  begin  with  a verb.  COBOL  verbs  are 
words  that  direct  an  action;  e.g.,  READ  or  COMPUTE.  They 
are  from  a group  of  words  called  "reserved  words".  These 
reserved  words  cannot  be  used  for  any  other  purpose  than 
their  intended  use.  FORTRAN  has  no  reserved  words.  For 
example,  WRITE  can  be  a verb  and  variable  in  the  same  pro- 
gram in  FORTRAN.  The  statement 

WRITE  (06, 10)  WRITE 

is  perfectly  legitimate  in  FORTRAN,  but 
WRITE  RECORD-ONE  FROM  WRITE 

would  not  be  an  acceptable  statement  in  COBOL.  COBOL  verbs 
are  normally  associated  with  the  PROCEDURE  DIVISION,  but  the 
COPY  verb  may  be  used  in  the  ENVIRONMENT  DIVISION  and  the  DATA 
DIVISION.  A list  of  COBOL  verbs  and  a brief  description  of 
their  use  may  be  found  in  Figure  3-1.  If  an  * precedes  a verb, 
the  verb  is  peculiar  to  Honeywell  COBOL;  a # indicates  that 
the  verb  is  peculiar  to  IBM  COBOL. 

3.2.3  Advantages/Disadvantages  of  COBOL.  COBOL  has  several 
noteworthy  advantages  over  most  other  languages.  Data  may  be 
rapidly  transferred  from  files  to  core.  The  COBOL  sentence 
structure  makes  the  code  easy  to  read  and  understand,  and  it 
is  somewhat  self  documenting.  A COBOL  program  can  be  written 
and  tested  rapidly.  Finally,  the  structure  of  the  language 

and  the  compiler  prevents  many  programming  errors.  Unfortunately, 

it  is  not  easily  adapted  for  scientific  or  mathematical  uses 

and  its  structure  is  somewhat  lengthy  and  cumbersome.  (19;  1116-1119) 

3 . 3 FORTRAN . The  FORmula  TRANslation  (FORTRAN)  computer  lan- 
guage was  introduced  in  1956  for  scientific  and  engineering 
purposes.  Unlike  COBOL,  FORTRAN  programs  are  not  divided  into 
divisions  and  FORTRAN  does  not  have  reserved  words.  Each  line  of 
code  represents  one  FORTRAN  statement.  The  Honeywell  6080  com- 
puter and  some  other  compilers  permit  more  than  one  statement 

per  line  of  code.  The  IBM  FORTRAN-G  compiler  does  not.  (19:  1173) 

3.3.1  Program  Identification.  FORTRAN  subprograms  are  identi- 
fied by  subroutine  name,  function  name,  or  default  to  "MAIN" 
program.  For  example,  the  statement 

SUBROUTINE  BLEEP  (ZONK,  BLOOP,  UPDATE) 

identifies  a subprogram  called  "BLEEP". 

FUNCTION  BLEEP  (ZONK,  BLOOP,  UPDATE) 

also  identifies  a subprogram  called  "BLEEP".  If  a subprogram 
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begins  with  any  other  statement,  the  subprogram  is  identified 
as  a "MAIN"  program.  These  program  identifiers  represent  the 
starting  address  of  the  subprograms  and,  therefore,  are 
important  for  linkage.  All  ANSI  FORTRAN  program  identifiers 
must  be  six  or  less  characters  and  must  begin  with  an  alpha- 
betic character. 

3.3.2  Data  Definition.  FORTRAN  identifies  or  'types'  data 
elements  as  integers,  real  numbers,  complex  numbers  or  logical 
variables.  Honeywell  FORTRAN  and  some  other  compilers  also 
identify  character  data.  The  equivalences  between  these 
FORTRAN  data  elements  and  COBOL  data  elements  are  described 
in  Section  5.  All  FORTRAN  compilers  assume  that  any  variable 
beginning  with  the  characters  I,  J,  K,  L,  M or  N is  an  integer 
item.  Any  other  variable  is  assumed  to  be  a real  number.  Com- 
plex, logical,  and  character  variables  must  be  defined  by  a 
special  statement.  For  example,  the  statement 

LOGICAL  CHECK 
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defines  "CHECK"  to  be  a logical  variable,  that  is  "CHECK"  has 
the  value  TRUE  or  FALSE.  Note  that  FORTRAN  does  not  require 
data  itfe.as  to  be  typed  as  integer  or  real,  but  in  the  absence 
of  explicit  definitions,  FORTRAN  will  default  to  the  assumptions 
described  above  for  a variable. 


3.3.3  Data  Transfer  from  Files.  The  transfer  of  data  from  a 
file  and  its  conversion  to  a workable  form  is  accomplished  at 
the  same  time  by  a FORTRAN  program.  COBOL  normally  reads  a 
file  into  core  as  is  and  makes  data  conversions  only  when 
necessary  in  the  course  of  doing  computations  or  making  compari- 
sons. Hence,  FORTRAN  data  transfer  tends  to  be  slower  than 
COBOL  transfer.  There  are  exceptions  to  this  assertion.  For 
example,  the  general  FORTRAN  statement 


READ  07  FILE 

is  very  fast,  but  usually  requires  "decoding"  which  is  a very 
slow  operation.  The  standard  FORTRAN  read  statement  is  of  the 
form 

READ  (05,  100)  DATA1 , DATA2 , DATA3 , 


where  05  is  the  file  code;  DATA1,  DATA2 , and  DATA3  are  data 
variables  and  100  is  the  statement  number  of  a "FORMAT"  state- 
ment. The  FORTRAN  format  statement  contains  the  information 
that  would  be  found  in  the  picture  clauses  of  the  COBOL  DATA 
DIVISION.  For  example, 

100  FORMAT  (A3,  IX,  14,  2X,  F8.2) 

describes  a file  record  consisting  of  a datum  of  three  alpha- 
numeric characters  (A3) , one  space  (IX) , a datum  of  four 

3-4 


integers  (14),  two  spaces  (2X)  and  a real  floating  point  num- 
ber occupying  8 bytes,  of  which  the  last  2 bytes  are  decimals. 

If  the  file  were  a card  deck  a typical  card  would  be 


1 


I 

ts 


NUB)i0123Jtfjrf-1234  567 

which  would  assign  the  following  values  in  the  read  statement 
above 


DATA1  = "NUB" 

DATA2  = 123 
DATA3  = -12345.67 

Unless  these  variables  were  specified  to  be  specific  lengths, 
they  would  each  default  to  one  word  in  length.  Hence,  all  the 
data  would  probably  require  conversion  when  the  READ  statement 
is  executed.  Unlike  the  COBOL  READ  verb,  the  FORTRAN  READ  verb 
will  open  the  file,  read  it  and  make  conversions  without  the 
need  of  any  statement  other  than  a FORMAT  statement. 


3.3.4  Data  Transfer  Between  Subprograms.  Data  may  be  trans- 
ferred  from  one  subprogram  to  another  through  the  CALL  or  "COMMON 
BLOCKS".  A typical  call  is: 

CALL  BLEEP  (X,Y,Z) 

I 

I 

The  data  are  transferred  through  the  variables  X,  Y,  and  Z.  The 
order  of  these  variables  is  important.  The  subroutine  defini- 
tion : 

SUBROUTINE  BLEEP  (ZONK,  BLOOP , UPDATE) 

equates  X to  ZONK,  Y to  BLOOP,  and  Z to  UPDATE.  In  other  words, 
the  address  of  X becomes  the  address  of  ZONK,  etc.  Hence,  data 
may  be  transferred  in  and  out  of  a subprogram  through  a call 
variable  as  with  COBOL.  The  COMMON  BLOCK  can  be  "labeled  common" 
and  is  established  by  a statement  like: 

C0MM0N/LABEL/DATA1 , DATA2 

Unlabeled  common  may  be  established  by  a statement  like: 

COMMON  DATA1 , DATA2 

Any  FORTRAN  subprogram  containing  common  statements  can  transfer 
data  through  these  common  areas  to  any  other  subprogram  contain- 
ing these  statements.  This  feature  of  FORTRAN  is  very  powerful. 
Unfortunately,  COBOL  cannot  access  common.  Hence,  labeled  or 
unlabeled  common  are  not  good  candidates  for  transferring  data 
to  non-FORTRAN  programs. 


t i 
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3.3.5  Executable  and  Compiler  Instruction  Statements.  There 
are  basically  two  types  of  FORTRAN  statements:  executable 
and  instructions  to  the  compiler.  Instructions  to  the  com- 
piler are  statements  like  COMMON,  LOGICAL,  and  SUBROUTINE. 

These  compiler  instructions  normally  must  come  before  any 
executable  statements  in  the  subprogram.  FORMAT  statements 
are  an  exception  in  that  they  may  appear  anywhere  in  the  sub- 
program. Executable  statements  like  CALL,  READ  and  WRITE 
appear  in  the  order  in  which  they  are  to  be  executed.  Compu- 
tations are  written  as  assignment  statements  in  equation  form. 
For  example, 

Y = X* ( Z * * 2 ) 

where  Z is  squared,  then  multiplied  by  X,  and  the  result  stored 
in  Y.  This  statement  is  similar  to  that  which  follows  the 
COBOL  COMPUTE  verb.  FORTRAN  also  permits  the  use  of  "functions" 
FORTRAN  functions  are  subprograms  that  perform  a special  opera- 
tion and  may  appear  as  part  of  a FORTRAN  assignment  statement. 
For  example, 

Y = A* (SQRT (Z)  ) 

takes  the  square  root  of  Z,  multiplies  it  by  A and  stores  the 
result  in  Y.  There  are  many  predefined  FORTRAN  functions  such 
as  LOG,  SIN,  COS,  EXP,  INT,  and  FRAC.  The  programmer  can 
define  many  more  if  he  desires.  FORTRAN  functions  can  be 
passed  through  a call.  For  example,  let  SAT  and  ART  be  FORTRAN 
functions  and 

SUBROUTINE  NEAT  (X,Y,  FUNCT)  be  a FORTRAN  subroutine 

that  requires  a specific  equation  identified  by  "FUNCT"  that 
may  change  from  time  to  time.  The  following  uses  of  NEAT  each 
use  different  functions;  that  is,  FUNCT  is  replaced  in  each 
case  by  the  function  identified: 

CALL  NEAT  (X,Y,  SAT) 

CALL  NEAT  (X,Y,  ART) 

These  two  calls  may  coexist  quite  comfortably  in  the  same 
subprogram.  Figure  3-2  is  a list  of  FORTRAN  statements  and 
their  meanings. 

3.3.6  Advantages  and  Disadvantages  of  FORTRAN.  FORTRAN  has 
several  advantages.  All  kinds  of  complex  mathematical  opera- 
tions can  be  performed  with  relative  ease.  The  statements  are 
short  and  very  close  to  being  equations.  Many  library  subrou- 
tines are  available  and  the  programmer  can  define  still  others. 


The  subprograms  are  short  and  easily  modularized.  Unfor- 
tunately , since  FORTRAN  variables  cannot  exceed  six  charac- 
ters in  length,  the  subprograms  are  not  self  documenting. 

A programmer  can  make  data  handling  errors  that  the  compiler 
will  not  catch.  Data  manipulation  may  not  be  very  efficient 
Therefore,  FORTRAN  has  some  serious  drawbacks.  (19:  1113-1116) 
(General  References  for  this  section  - 6,  10,  12,  17). 


FIGURE  3-1 

BASIC  DEFINITIONS  OF  COBOL  WORDS  (VERBS)  (6,  7,  12,  14,  16) 


ACCEPT 

ADD 

ALTER 


CALL 

# CANCEL 
COPY 
CLOSE 
COMPUTE 


# DISABLE 


DISPLAY 


DIVIDE 


Causes  low  volume  data  to  be  made  available 
from  Special  Names  paragraph. 

Add  one  or  more  items  to  a resultant  field. 
Changes  the  destination  of  a go-to  from  one 
procedure  name  to  another. 

Transfers  control  to  a separately  compiled 
program. 

Releases  storage  occupied  by  a called  program. 
Places  prewritten  text  into  a COBOL  program. 
Terminates  processing  of  reels,  units,  files. 

Sets  one  or  more  items  equal  to  the  value  of 
an  arithmetic  expression. 

Notifies  Message  Control  System  (MCS)  to  transfer 
data  between  specified  sources  and  input/output 
queues. 

Transmits  low  volume  data  to  a specified  output 
device. 

Divides  one  item  into  another. 


# ENABLE 

* ENTER 
ENTRY 

* EXAMINE 
EXIT 

GENERATE 

# GO  BACK 
GO  TO 


INITIATE 
# INSPECT 


MERGE 

MOVE 

MULTIPLY 

OPEN 


- Allows  MCS  to  transfer  data  between  specified 
sources  and  input/output  queues. 

- Includes  specific  statements  in  source  programs 
not  defined  in  COBOL. 

- Establishes  an  alternate  entry  point  into  a 
COBOL  called  subroutine. 

- Changed  to  INSPECT  in  ANS  74  COBOL. 

- Defines  exit  point  for  a series  of  procedures. 

- Presents  a report  entry  based  on  PROCEDURE 
DIVISION  control. 

- Specifies  the  logical  end  to  a called  program. 

- Transfers  control  to  another  part  of  the 
PROCEDURE  DIVISION. 

- Evaluates  a condition;  action  taken  based  on 
whether  condition  is  T or  F. 

- Begins  processing  of  a report. 

- Specifies  that  characters  in  a data  item  are 
to  be  counted,  replaced,  or  both. 

- Combines  two  or  more  identically  sequenced 
files . 

- Transfers  data  to  one  or  more  receiving  fields. 

- The  product  of  two  items. 

- Initiates  the  processing  of  files. 
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PERFORM 

READ 

# RECEIVE 
RELEASE 

# RETURN 

# REWRITE 

SEARCH 

# SEEK 

# SEND 
SET 
SORT 

# START 
STOP 

# STRING 
SUBTRACT 

# TRANSFORM 
TERMINATE 

# UNSTRING 

WRITE 

# Honeywell 


- Allows  departure  from  normal  sequence  to 
execute  other  procedures  a specified  number 
of  times,  or  until  a condition  is  met, 
returning  to  sequence. 

- Makes  available  the  next  logical  record; 
allows  action  when  EOF  deterged. 

- Makes  available  a message  & pertinent  data 
about  it  from  MCS  input  queue. 

- Transfers  records  to  the  initial  phase  of  a 
sort  operation. 

- Obtains  the  sorted  records  from  the  final 
phase  of  a sort  operation. 

- Logically  replaces  an  existing  record  in  a 
mass  storage  file. 

- Search  a table  for  an  element  that  satisfies 
a condition. 

- Initiate  accessing  a mass  storage  record  for 
subsequent  reading/ writing . 

- Causes  a message  to  be  released  to  the  MCS 
(Message  Control  System) . 

- Associates  index  names  with  table  elements  for 
table  handling  reference  points. 

- Puts  the  records  of  a file  into  a predefined 
order . 

- Provides  a means  of  positioning  within  a file 
for  later  sequential  retrieval . 

- Halts  execution  temporarily  or  permanently. 

- Puts  together  the  contents  of  two  or  more 
items  into  a single  data  item. 

- Subtract  one  item  from  two  or  more  items . 

- Alters  characters  according  to  a transforma- 
tion rule. 

- Terminates  processing  of  a report. 

- Separates  contiguous  data  into  multiple 
receiving  fields. 

- Releases  a logical  record  for  an  output  file. 


Peculiar 


# IBM  Peculiar 


FIGURE  3-2 


Basic  Definitions  of  FORTRAN  Statements  (10,  15,  17) 


* ABNORMAL 
ASSIGN 

BACKSPACE 
BLOCK  DATA 

CALL 

* CHARACTER 

COMMON 

COMPLEX 

CONTINUE 

DATA 

# DEBUG 

* DECODE 

# DEFINE  FILE 
DIMENSION 

# DISPLAY 
DO 

DOUBLE  PRE- 
CISION 


- Reverses  default  interpretation,  as  side 
effects  of  function  may  alter  output. 

- Gives  status  of  item  as  numeric,  character, 
logical,  or  label. 

- Backup  one  record. 

- One  way  to  enter  data  into  a labeled  common 
block  during  compile. 

- Transfers  control  to  a subprogram. 

- A string  of  characters  composed  of  any  combina- 
tion of  characters  of  the  ASCII  or  BCD  character 
set. 

- Assigns  two  elements  in  different  programs  to 
the  same  storage  location. 

- A number  composed  of  a real  part  and  an 

imaginary  part,  i.e.,  (2,i). 

- Dummy  statement  used  to  end  the  range  of  a DO. 

- Allows  programmer  to  enter  data  at  compile  time. 

- Sets  conditions  for  operation  and  designates 
debugging  options  for  entire  program. 

- Causes  a character  string  to  be  converted  to 
data  items. 

- Describes  characteristics  of  data  sets  to  be 
used;  direct  access  statement. 

- Provides  information  to  allocate  storage  for 
arrays  and  their  size. 

- Eliminates  need  for  format  or  namelist  and  write 
in  debug  packet. 

- Allows  departure  from  normal  sequence  to  execute 
a block  of  code  n times. 

- A two  word  number  in  floating  point  format. 


* ENCODE 
END 

ENDFILE 

ENTRY 

EQUIVALENCE 

EXPLICIT 

EXTERNAL 


- Causes  data  items  to  be  converted  to  a character 
string. 

- Specifies  the  physical  end  of  the  source  program. 

- Causes  the  indicated  (sequential)  file  to  be 
closed  with  an  end  of  file  signal. 

- Specifies  a point  of  entry  into  another  program 
or  subroutine. 

- Assigns  variables  in  the  same  program  to  the 
same  storage  location. 

- Declares  type  of  variable  by  name  instead  of 
initial  character. 

- Permits  the  use  of  a subprogram  as  an  argument 
in  another  subprogram  call. 
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# FIND 
FORMAT 
FUNCTION 

# GENERIC 
GO  TO 


Overlaps  record  retrieval  from  direct  access 
device;  direct  access  statement. 

Provides  conversion  and  editing  for  input/output 
statements . 

First  statement  of  a function  subprogram;  states 
relationship  between  variables. 

Declares  a set  of  names  to  be  generic. 

Indicates  the  next  statement  to  be  executed. 


IF 

IMPLICIT 

INTEGER 


- Checks  for  a condition,  respond  accordingly: 
logical,  arithmetic,  implicit. 

- Used  to  declare  the  type  of  variables  in  a pro- 
gram. 

- A fixed  point  number. 


LOGICAL 


Item  with  a logical  value  of  true  or  false. 


* PARAMETER 
PAUSE 
PRINT 
PUNCH 

READ 

REAL 

RETURN 

REWIND 


Defines  program  constants  as  the  result  of  an 
expression  at  compile  time. 

Causes  a temporary  halt  in  execution  until 
resumed  by  operator. 

Used  for  list  directed,  formatted  output  to  the 
standard  system  output  device. 

Causes  converted  data,  in  punchable  form,  to  be 
transmitted  to  the  standard  output  device. 

Transfers  data  from  a direct  access  device  to 
internal  storage. 

A floating  point  number. 

Logical  end  of  any  subprogram,  returning  con- 
trol to  the  calling  program. 

Positions  specified  file  at  its'  initial  point. 


STOP  - Halts  object  program  and  returns  control  to 

operating  system. 

SUBROUTINE  - Must  be  first  statement  of  a called  subroutine. 


TYPE 

# WAIT 
WRITE 


- Defines  data  items  as  Integer,  Real,  Double- 
Precision,  Logical,  Complex,  or  Character . 

- Completes  data  transmission  begun  by  asynchronous 
Read/Write. 

- Used  for  formatted  output  to  a designated  output 
device. 


* Honeywell  Peculiar 


# IBM  Peculiar 


SECTION  4.  THE  COMPUTERS 


4.1  Introduction.  Some  knowledge  of  the  computer  hardware 
operation  is  desirable  to  understand  the  data  and  subroutine 
linkage  or  interface  problems  associated  with  the  use  of  more 
than  one  computer  language  in  the  same  program.  This  section 
discusses  some  of  the  hardware  operation  of  the  IBM  and 
Honeywell  computers. 

4.2  The  Bit.  BIT  is  an  acronym  for  Binary  digiT  (BIT).  (2:5) 

There  are  only  two  binary  digits:  0 and  1.  Simple  electrical 
circuits  are  either  on  or  off  and  therefore  may  be  used  to 
represent  the  binary  digits.  These  simple  circuits  may  be 
combined  using  the  principles  of  Boolean  algebra  to  perform 
comparisons  and  computations  with  groups  of  binary  digits. 

Decimal  numbers  may  be  represented  by  groups  of  bits  in  basi- 
cally two  ways: 

a.  The  binary  number  system  equivalent  to  the  decimal 
number  can  be  used  to  represent  the  decimal  number. 

This  configuration  is  called  a binary  form.  (3,  5) 

b.  The  decimal  number  can  be  represented  by  a somewhat 
arbitrary  bit  code  called  Binary  Coded  Decimal  (BCD) . 

Sometimes  the  term  BCD  is  used  to  refer  to  a specific 
code  called  the  Natural  Binary  Coded  Decimal  (NBCD) , 
see  Figure  4-1.  In  this  report  the  usage  of  BCD  is 
more  general.  (192164)  Computers  may  use  either  or 
both  representations  to  perform  computations.  Most 
third  generation  computers  use  both  representations, 
but  normally  perform  computations  using  only  the  binary 
representation.  (3,  5) 

4 . 3 The  Byte . A group  of  binary  digits  that  are  considered 
or  operated  on  as  a unit  is  called  a byte.  (2:6)  Normally, 
a byte  is  a specified  number  of  bits  that  represent  numbers 
and  characters  according  to  some  code.  For  example,  the 
Honeywell  6000  standard  character  set  uses  a six  bit  byte. 

The  letter  "A"  is  represented  by  the  Honeywell  system  as 

010001 

The  numbers  0 to  9 in  the  Honeywell  system  are  represented  by 

the  NBCD  system  with  leading  zeros.  Figure  4-2  lists  the  I 

Honeywell,  IBM  Extended  Binary  Coded  Decimal  Interchange  Code 

(EBCDIC)  and  American  Standard  Code  for  Information  Interchange 

eight  bit  code  (ASCII-8).  EBCDIC  and  ASCII-8  are  8 bit  byte 

codes.  (2,  3,  5,  19) 
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Natural  Binary  Coded  Decimal  System 


Decimal  Number 


Binary  Representation 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


0000 

0001 

0010 

0011 

0100 

0101 

0110 

0111 

1000 

1001 


"Forbidden"  Binary  Combinations 

1010 

1011 

1100 

1101 

1110 

1111 

Reference  (19:164) 


FIGURE  4-1 
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Character  EDCDIC  Binary  EBCDIC  HEX  Honeywell  Binary  Honeywell  Octal  ASCII-8  Binar 


1000 

0001 

81 

1110 

0001 

1000 

0010 

82 

1110 

0010 

1000 

0011 

83 

1110 

0011 

1000 

0100 

84 

1110 

0100 

1000 

0101 

85 

1110 

0101 

1000 

0110 

86 

1110 

0110 

1000 

0111 

87 

1110 

0111 

1000 

1000 

88 

1110 

1000 

1000 

1001 

89 

1110 

1001 

1001 

0001 

91 

1110 

1010 

1001 

0010 

92 

nio 

1011 

1001 

0011 

93 

1110 

1100 

1001 

0100 

94 

1110 

1101 

1001 

0101 

95 

1110 

1110 

1001 

0110 

96 

1110 

1111 

1001 

0111 

97 

1111 

0000 

1001 

1000 

98 

1111 

0001 

1001 

1001 

99 

nil 

0010 

1010 

0010 

A2 

ini 

0011 

1010 

0011 

A3 

ini 

0100 

1010 

0100 

A4 

im 

0103 

1010 

0101 

A5 

mi 

0110 

1010 

0110 

A6 

mi 

0111 

1010 

0111 

A7 

nn 

1000 

1010 

1000 

A8 

nil 

1001 

1010 

1001 

A9 

nil 

1010 

NUMBER  CHARACTERS 


0 

nil 

0000 

F0 

000000 

00 

0101 

0000 

1 

nn 

0001 

FI 

000001 

01 

0101 

0001 

2 

ini 

0010 

F2 

000010 

02 

oiqi 

0010 

3 

nn 

0011 

F 3 

000011 

03 

oipi 

0011 

4 

nn 

0100 

F4 

000100 

04 

0101 

0100 

5 

nn 

0101 

F5 

000101 

05 

0101 

0101 

0 

nn 

ono 

F6 

000110 

06 

01Q1 

0110 

7 

nn 

0111 

F7 

000111 

07 

0101 

0111 

8 

nn 

1000 

F8 

001001 

10 

0101 

1000 

9 

nn 

1001 

F9 

001001 

11 

0101 

1001 

Honeywell  Binary  Honeywell  Octal 


ASCII-8  Binary 


Character  EBCDIC  Binary  EBCDIC  HEX 


SPECIAL  CHARACTERS 


. 

0100  1011 

4B 

011011 

33 

0100  1110 

< 

0100  1100 

4C 

011110 

36 

0101  1100 

( 

0100  1101 

4D 

011101 

35 

1011  1011 

+ 

0100  1110 

4E 

110000 

60 

0100  1011 

& 

0101  0000 

5D 

011010 

32 

0100  0110 

1 

0101  1010 

5A 

111111 

77 

0100  0001 

$ 

0101  1011 

5B 

101011 

53 

0100  0100 

* 

0101  1100 

5C 

101100 

54 

0100  1010 

) 

0101  1101 

5D 

101101 

55 

1011  1101 

! 

0101  1110 

5E 

101110 

56 

0101  1011 

- 

0110  0000 

60 

101010 

52 

0100  1101 

/ 

0110  0001 

61 

011111 

37 

0100  1111 

C.  .cter 

EBCDIC  Binary 

EBCDIC  HEX 

Honeywell  Binary 

Honeywell  Octal 

ASCII-8  Binary 

/ 

0110 

1011 

6B 

111011 

73 

0100  1101 

% 

0110 

1100 

6C 

111100 

74 

0100  0101 

(Underscore) 

1101 

6D 

1011  1111 

> 

0110 

1110 

6E 

001110 

16 

0101  1110 

? 

0110 

1111 

6F 

001111 

17 

0101  1111 

: 

0111 

1010 

7A 

001101 

15 

0101  1010 

# 

0111 

1011 

7B 

001011 

13 

0100  0011 

0111 

1100 

7C 

001100 

14 

1010  0000 

i 

0111 

1101 

7D 

101111 

57 

0100  0111 

s 

0111 

1110 

7E 

111101 

75 

0101  1101 

II 

0111 

1111 

7F 

111110 

76 

0100  0010 

NOTE* 

Control  characters  and  some  machine  peculiar  special  characters 

have  been 

omitted  from 

this  table. 

Reference  (3,  5,  19} 
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It  is  convenient  to  print  a byte  in 
a number  system  other  than  the  binary  system.  The  octal  and 
hexidecimal  system  are  used  for  this  purpose.  The  Honeywell 
6000  series  computers  use  two  octal  numbers  to  describe  one 
six  bit  byte.  The  IBM  360/370  series  of  computers  uses  a two 
digit  hexidecimal  number.  Hence,  an  "A"  in  the  Honeywell 
System  would  be  printed  in  a binary  dump  as  "21".  (2,  3) 

4 . 4 The  Word . A computer  word  is  normally  the  group  of  bytes 
that  the  computer  manipulates  with  one  instruction.  (2:62) 

The  standard  Honeywell  6000  series  word  is  36  bits  or  six  bytes 
in  length.  The  IBM  360/370  word  length  is  32  bits  or  four 
bytes.  These  lengths  are  the  sizes  of  the  primary  working 
registers  in  the  computer.  Hence,  a computer  normally  operates 
on  one  word  at  a time.  A word  can  be  a string  of  BCD  data,  a 
machine  instruction  or  a binary  system  number.  The  specific 
use  of  a word  depends  upon  the  context  in  which  it  appears  in 
the  sequence  of  operations  in  the  machine.  For  example,  the 
36  bit  Honeywell  word 

001010010010010011101001101000000000 
which  in  octal  form  is 

122223515000 


represents 

[BCRQ0 


when  used  as  a BCD  word,  or  when  used  as  an  instruction, 


"compare  the  floating  point  number  at  address  122223  to 
bits  0-27  of  the  AQ  register". 


If  this  word  is  used  as  a binary  number,  it  can  be  either  an 
integer  (fixed  point)  or  floating  point  number. 


As  an  integer  it  is 


11,044,559,360 


and  as  a floating  point  number  it  is 
6.34153597  X 1011. 


These  varied  meanings  for  the  same  word  create  a severe  link- 
age problem.  If  one  subprogram  considers  a specific  word  a 
fixed  point  number  and  another  subprogram  considers  that  word 
a floating  point  number,  a gross  error  will  result.  (3,  5) 
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4.5  Addressing.  The  computer  locates  a word  through  a 
location  number  called  an  address.  Some  computers,  e.g., 
the  Honeywell  6000  series,  assign  address  numbers  to  words. 

Other  computers,  e.g.,  the  IBM  360/370  series,  assign 
address  numbers  to  bytes.  In  either  case  the  computer  can 
operate  on  both  words  and  bytes.  The  mechanism  by  which 
a computer  addresses  words  or  bytes  is  characteristic  of  the 
machine  level  language  and  the  same  procedure  will  generally 
be  used  regardless  of  the  higher  level  language  used.  (3,  5) 

4.6  Subprogram  Addressing  and  Linkage.  Subprograms  occupy 
a distinct  section  of  computer  core.  There  are  two  types  of 
subprograms  that  are  of  importance  to  this  report:  Subrou- 
tines and  functions.  Subroutines  are  of  two  types:  opened 
and  closed.  An  open  subroutine  is  a set  of  code  that  is 
inserted  in  the  main  program  or  other  subprogram  where  it  is 
needed.  This  type  of  subroutine  makes  inefficient  use  of 
core  and  is  not  normally  used  in  higher  level  languages.  The 
closed  subroutine  is  a set  of  code  that  occurs  only  once  in 
core,  but  is  used  by  the  main  program  or  other  subprogram 
through  a transfer  of  program  control  to  that  area  of  core  when 
the  subroutine  is  used.  Hereafter,  subroutine  shall  mean 
closed  subroutine.  The  function  subprogram  is  very  similar  to 
the  closed  subroutine.  The  difference  between  a function  sub- 
program and  a closed  subroutine  is  in  the  way  in  which  these 
subprograms  are  used  in  the  source  code.  A function  is  inserted 
into  a line  of  code.  For  example,  the  function  SQRT  may  be 
used  as  follows:  Y = A*SQRT(X).  A closed  subroutine  must  be 
called.  For  example,  a subroutine  called  ORBIT  may  be  used  as 
follows: 

CALL  ORBIT  (X, Y, Z , NAMES)  or  CALL  ORBIT  USING  X,Y,Z, NAMES. 

In  both  examples  the  computer  sets  up  a table  with  addresses 
associated  with  SQRT  and  ORBIT.  These  addresses  are  the  entry 
or  beginning  point  of  the  subprogram.  When  a function  or  sub- 
routine is  used,  program  control  is  passed  to  the  instruction 
at  the  address  of  the  function  or  subroutine.  The  address  of 
the  next  instruction  in  the  calling  program  is  stored.  When 
the  function  or  subroutine  task  is  completed,  control  of  the 
program  returns  to  the  calling  program  by  returning  to  the 
instruction  whose  address  was  stored.  Before  execution  the 
computer  has  inserted  subprogram  addresses  in  the  program.  How- 
ever, the  subprogram  table  exists  during  the  compilation  and 
loading/linking  activities.  Hence,  the  computer  can  link  sub- 
programs written  in  different  higher  level  languages  to  the 
main  program  and  other  subprograms.  Library  routines  are  also 
linked  during  the  loading/linking  activity.  Since  linking  and 
address  resolution  t^ke  place  after  compilation,  simple  sub- 
program linkage  is  usually  not  a problem.  (19:1370-1373)  , ! 


4.7  Types  of  Data  and  Data  Addressing.  The  linkage  problem 
becomes  more  difficult  when  data  is  transferred  from  one  sub- 
program to  another.  If  only  one  higher  level  language  is 
used,  the  compiler  will  normally  resolve  data  transference 
difficulties.  However,  when  more  than  one  language  is  used 
serious  problems  can  result.  These  problems  are  discussed  in 
detail  in  Section  5.  This  paragraph  describes  the  types  of 
data  and  how  they  are  addressed. 

a.  Display  or  Hollerith  Data.  Numeric  and  character 
representation  was  described  in  paragraph  4-3.  In 
the  COBOL  language  terminology  these  data  are  called 
"display  items".  In  the  FORTRAN  language  the  terms 
"character"  or  "Hollerith"  data  are  used.  Each  indi- 
vidual character  is  stored  in  one  byte.  A string  of 
characters  is  normally  left  justified  in  the  first 
and  last  computer  words  that  the  string  uses.  The 
address  of  the  string  is  the  address  of  the  first  byte. 
Of  great  importance  is  the  fact  that  the  end  of  one 
string  of  character  bytes  can  occupy  the  same  word  as 
the  beginning  of  another  string.  For  some  computer 
languages,  e.g.,  FORTRAN,  this  characteristic  can  be 
problematic.  (3,  5,  12) 

b.  Packed  Decimal  Data.  Packed  decimal  data  are  special 
numeric  data  only  and  use  the  NBCD  system.  The  Honey- 
well 6000  series  computer  can  pack  eight  NBCD  charac- 
ters into  one  36  bit  word.  The  IBM  360/370  series 
computers  can  also  pack  eight  NBCD  characters  into  its 
32  bit  word.  Four  bits  in  the  Honeywell  word  are 
unused  in  packed  decimal  representation.  Unfortunately, 
some  computer  languages,  e.g.,  FORTRAN,  cannot  handle 
packed  decimals  very  well.  Hence,  packed  decimals  cre- 
ate linkage  problems.  (3,  5) 

c.  Zoned  Decimal  Numbers.  Zoned  decimal  numbers  are  NBCD 
characters  separated  by  a bit  string  called  a zone. 

The  IBM  360/370  series  uses  a four  bit  zone  and  the 
Honeywell  6000  series  uses  a five  bit  zone  (the  leading 
bit  is  zero) . These  numbers  are  used  for  input/output 
where  the  zone  bits  represent  the  presence  or  lack  of 
zone  punches  on  cards  and  therefore  the  difference 
between  sets  of  ASCII/EBCDIC  characters.  Zoned  decimal 
numbers  and  packed  decimal  numbers  are  treated  for 
address  purposes  like  character  data.  (3,  5) 

d.  Fixed  Point  Data.  Fixed  point  data  is  a straight  binary 
representation  of  decimal  data  usually  used  for  integer 
arithmetic.  The  binary  point  is  assumed  to  be  at  the 
extreme  right  of  the  number.  If  the  binary  point  is 
assumed  to  be  at  the  extreme  left,  the  number  can  be 
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treated  as  a fraction.  The  programmer  or  compiler 
must  normally  keep  track  of  the  decimal  point.  Any 
fixed  point  number  must  be  aliened  on  a word  boundary 
for  computations.  Therefore,  in  the  IBM  360/370  series 
machine  the  address  of  the  word  should  be  divisible  by 
4 before  computations  are  performed.  Double  fixed 
point  numbers  are  possible  in  the  Honeywell  6000  series 
machine.  Any  such  number  must  begin  at  an  even  address. 
There  are  two  types  of  fixed  point  numbers:  algebraic 
and  logical.  Algebraic  numbers  use  the  extreme  left 
bit  as  a sign  bit.  Logical  numbers  have  no  sign  bit. 
Arithmetic  may  be  performed  with  either  type.  Both  the 
IBM  360/370  and  Honeywell  6000  series  machines  have  the 
capability  of  performing  arithmetic  on  half  words;  i.e., 

16  bits  in  the  IBM  and  18  bits  in  the  Honeywell.  The 
ranges  of  these  fixed  point  numbers  are  listed  in 
Figure  4-3  and  Figure  4-4.  (3,  5) 

e.  Single  Precision  Floating  Point  Data.  Floating  point 
data  is  a binary  representation  of  a number  using  an 
exponent  and  mantissa.  In  both  the  Honeywell  6000 
series  and  IBM  360/370  series  machines,  the  first  eight 
bits  of  a floating  point  representation  is  a binary 
exponent.  The  remaining  bits  of  the  word  represent  a 
binary  mantissa.  This  mantissa  is  usually  a "normalized 
binary  fraction",  that  is,  the  binary  or  hexidecimal 
point  is  assumed  to  be  to  the  left  of  the  first  bit  in 
the  binary  form  of  the  mantissa  and  this  bit  must  be 
non-zero  (on)  so  that  all  the  binary  digits  are  signifi- 
cant. The  process  of  normalization  requires  an  adjustment 
of  the  exponent.  Hence,  any  number  X is  represented  math- 
ematically by 

X = A ( 2E) 

where  A is  the  normalized  mantissa  and  E is  the  binary 
exponent.  In  some  IBM  literature  the  exponent  is  called 
the  "characteristic"  and  the  mantissa  is  called  the 
"fraction".  As  an  example,  refer  to  the  36  bit  Honeywell 
word  in  paragraph  4-4.  The  exponent  is 

00101001 

The  leading  bit  is  0 which  means  that  the  exponent  is 
positive.  The  value  of  this  exponent  is  41.  the  man- 
tissa is 

0010010011101001101000000000 

The  leading  bit  is  the  sign  bit  which  in  this  case  indi- 
cates that  the  number  is  positive.  The  mantissa  is  not 
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Ranges  of  Fractional  Fixed  Point  Representations 


Algebraic  Single  Word 
Logical  Single  Word 
Algebraic  Double  Word 
Logical  Double  Word 
Algebraic  Half  Word 
Logical  Half  Word 


Honeywell 
-1  to  (1-2  ~35) 
0 to  (1-2  _36) 
-1  to  (1-2  "71) 
0 to  (1-2  ~72) 
-1  to  (1-2  ~17) 
0 to  (1-2  ~18) 
References  (3,  5) 


-1  to  (1-2  ”31) 
0 to  (1-2  ~32) 
-1  to  (1-2  ~63) 
0 to  (1-2  ~64) 
-1  to  (1-2  _15) 
0 to  (1-2  _16) 


Algebraic  Fixed  Point  Format 


SIGN  BIT 


FIGURE  4-3 


Ranges  of  Integral  Fixed  Point  Representations 


Honeywell 


Algebraic  Single  Word 


Logical  Single  Word 


Logical  Double  Word 
Algebraic  Half  Word 
Logical  Half  Word 


4-10 


-34359738368  to 
34359738367 


-2147483648  to 
2147483647 


0 to  68719476735  0 to  4294967295 

-2  71  to  (2  71  -1)  -2  63  to  (2  63  -1) 


0 to  (2  72  -1) 


0 to  (2  63  -1) 


-131072  to  131071  -32768  to  32767 


0 to  262143 
References  (3,  5) 


FIGURE  4-4 


0 to  65535 


127 
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Ranges  of  Floating-Point  Numbers 


Single 

Precision 

Honeywell 

-2  127 

to 

(1-2  ~21) 

2 127 

Single 

Precision 

IBM 

-(1-2 

"25) 

16  63  to 

(1-2  ~25) 

16 

63 

Double 

Precision 

Honeywell 

-2  127 

to 

(1-2  ~63) 

2 127 

Double 

Precision 

IBM 

-(1-2 

-57) 

16  63  to 

(1-2  _57) 

16 

63 

— 128 

NOTE:  Numbers  of  very  small  magnitude  (less  than  about  2 on 

the  Honeywell  or  16  “64  on  the  IBM)  are  considered  to  be 
zero . 

(References  3,  5) 


Honeywell  Floating-Point  Format 
BIT  #01  789 


K EXPONENT- 


-MANTISSA- 


SIGN  BIT  OF  THE  NUMBER 

Both  Exponent  and  Mantissa  are  in 

two's  complement  form. 


EXPONENT  SIGN  BIT 


IBM  Floating-Point  Format 
BIT  #01  78 


k CHARACTERISTIC- 


-FRACTION- 


A 


Sc 


ORMALIZED  ON  HIGH  ORDER 
HEX I DECIMAL  DIGIT. 

CHARACTERISTIC  = E + 64  in  the  binary  system 
where  Number  = Fraction  X 2E 
Sign  bit  of  the  number 


FIGURE  4-5 
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normalized.  The  machine  would  probably  normalize  this 
number  prior  to  performing  arithmetic  with  it.  In  its 
present  form  this  binary  fraction  is 

1/4  + 1/32  + 1/256  + 1/512  + 1/1024  + 1/4096  + 
1/32768  + 1/65536  + 1/262144 

or 

0.288379669. 

Hence,  the  number  is 
0.288379669  (241) 


6.34153597  X 1011 

Note  that  the  Honeywell  word,  being  larger,  allows  for 
more  precision  than  does  the  IBM  word.  This  difference 
can  cause  problems  in  COBOL  or  FORTRAN  programs  written 
for  the  Honeywell  machine,  but  run  on  the  IBM  machine. 

The  floating  point  representation  formats  for  both 
machines  are  shown  in  Figure  4-5.  Note  that  the  Honey- 
well computer  uses  a two ' s-complement  representation. 

The  IBM  machine  uses  an  absolute  binary  representation 
for  the  fraction.  The  IBM  characteristic  is  of  the  form 
E+64  which  eliminates  the  need  for  the  sign  bit. 

(3,  5,  11) 

f.  Double  Precision  Floating  Point  Data.  If  the  floating 
point  representation  occupies  two  words  instead  of  one, 
it  is  referred  to  as  a "Double  Precision"  floating 
point  number.  In  both  the  Honeywell  6000  series  machines 
and  IBM  360/370  machines,  the  mantissa  of  the  double 
precision  word  is  lengthened  by  one  word  over  the  single 
precision  form.  The  exponent  length  is  unchanged.  Other- 
wise the  form  is  the  same  as  the  single  precision  repre- 
sentation. The  IBM  360/370  machines  also  have  an  extended 
floating  point  number  that  occupies  four  full  words 

(16  bytes) . (3,  5) 

g.  Alignment  of  Computational  Data.  If  a computer  is  going 
to  perform  binary  computations  with  bit  strings,  these 
strings  must  be  correctly  aligned  in  the  processor 
registers.  To  insure  correct  alignme?it,  the  strings 
should  be  stored  in  core  on  specific  word  or  byte  bound- 
aries. As  was  mentioned  in  paragraph  d,  the  single 
precision  fixed  point  number  must  occupy  one  word  in 
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both  the  IBM  and  Honeywell  machine  and  should  begin 
at  a word  address  (word  boundary)  in  the  Honeywell 
6000  series  or  at  an  address  divisible  by  four  (single 
word  boundary)  on  the  IBM  machine.  The  double  pre- 
cision fixed  point  number  must  occupy  two  words  and 
should  begin  at  an  even  address  (double  word  boundary) 
in  the  Honeywell  machine  or  at  an  address  divisible  by 
eight  (double  word  boundary)  in  the  IBM  machine.  The 
same  rules  apply  to  single  and  double  precision  float- 
ing point  representations.  Figures  4-6  and  4-7  show 
these  requirements.  In  some  machines,  e.g.,  the  IBM 
370/3033,  it  is  possible  to  store  computational  binary 
items  beginning  on  any  byte  boundary.  Although  this 
practice  may  save  space  initially,  there  are  several 
disadvantages : 


Passing  the  data  to  another  program  may  cause 
alignment  or  program  boundary  problems. 


Before  computations  can  be  performed,  the 
machine  must  align  the  data  properly  some- 
where in  core.  This  procedure  is  an  internal 
machine  function  and  is  not  controlled  by  the 
programmer.  Therefore  storage  space  may  not 
be  saved. 


iii)  Computations  are  less  efficient. 


iv)  Programs  may  not  be  machine  independent. 


Therefore  aligning  computational  binary  items  on  proper 
boundaries  is  recommended.  (3,  5) 


4.8  Implications  of  Data  Structure.  From  the  preceeding  dis- 
cussion one  can  see  that  it  is  possible  to  misuse  data  trans- 
ferred to  other  subprograms  or  read  from  data  files.  For 
example,  one  subprogram  could  treat  a datum  as  a fixed  point 
number  whereas  another  subprogram  could  treat  it  as  a floating 
point  number.  This  situation  would  normally  produce  gross 
errors  that  would  not  be  detected  by  the  computer.  Similar 
problems  are  possible  while  reading/writing  files.  The  program- 
mer must  insure  that  data  is  used  in  a consistent  manner. 


4.9  Implications  of  Data  Alignment  and  Addressing.  Character 
data  and  packed  decimal  data  can  be  aligned  on  any  byte  boundary, 
Computational  data,  i.e.  , fixed  or  floating  point  data,  should 
be  aligned  on  word  boundaries.  Usually  this  arrangement  does 
not  pose  address  problems  in  that  like  data  in  the  same  machine 
is  addressed  the  same  way  irrespective  of  the  higher  level  lan- 
guage used.  However,  there  are  situations  when  data  may  need 
to  be  handled  in  an  unorthodox  way  causing  addressing  problems. 
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FIGURE  4-7  (THIS  FIGURE  ASSUMES  DATA  SYNCHRONIZATION) 
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For  example,  ANSI  FORTRAN  does  not  identify  variables  as 
character  or  display  data.  Hence  character  data  is  treated 
as  computational  data  until  outputed.  If  the  data  were 
established  by  a COBOL  program  as  a display  item,  the  data 
may  not  begin  on  a word  boundary.  Therefore  part  of  the 
data  could  be  lost  if  subsequently  accessed  by  a FORTRAN  sub- 
routine. This  problem  is  discussed  in  detail  in  Sections  5 
and  8 . 

4.10  File  Access  Methods.  This  section  addresses  the  various 
access  methods  used  for  storing  and  retrieving  data  on  the 
Honeywell  and  IBM  computers.  This  section  does  not  discuss  the 
structures  used  for  storage  of  the  data. 

4.10.1  Basic  File  Access  Types.  The  file  access  methods  used 
by  the  Honeywell  Series  60  Level  66  and  IBM  370  computers  are 
shown  in  Figure  4-8  and  Figure  4-9  respectively.  For  this  dis- 
cussion, the  file  access  methods  for  each  system  are  divided 
into  three  main  categories:  sequential,  random,  and  indexed 
sequential.  The  properties  of  each  access  method  are  as 
follows: 


a.  Sequential  - This  method  accesses  records  serially.  The 
records ’ order  of  access  is  determined  by  its ' position 
in  the  file.  The  access  of  the  nth  record  requires  the 
access  of  all  records  prior  to  the  one  desired  and 
results  in  n file  accesses. 

b.  Random  - This  access  method  uses  a record  associated 
key  value  and  an  algorithm  which,  when  supplied  with 
this  key  value,  produces  a relative  or  absolute  address. 
This  address  is  the  location  of  the  desired  record. 

c.  Indexed  Sequential  - This  access  method  is  a combination 
of  the  sequential  and  random  access  methods.  It  ini- 
tially uses  the  random  access  method  to  locate  a 
specific  area  (page,  block,  etc)  and  then  sequentially 
searches  the  data  from  this  point  until  the  appropriate 
record  is  located. 

The  sequential,  indexed  sequential,  and  random  file  access 
methods  are  performed  by  calling  special  system  I/O  routines. 

The  specifics  for  calling  the  I/O  routines  can  be  found  by 
referencing  the  appropriate  systems's  manuals.  (7,  11,  14) 


4.10.2  Honeywell  Files.  The  Honeywell  file  access  methods  are 
discussed  below: 

a.  The  Honeywell  computer's  random  access  method  is  called 
Random.  Another  file  system  available  on  the  Series  60 
Level  66  computer  is  the  Integrated  Data  Store  (IDS) 
system.  This  system  utilizes  a random  access  method 
designed  to  store  fields  of  information  and  link  those 
fields  in  a number  of  ways  depending  upon  the  desired 
application. 
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b.  The  Honeywell  indexed  sequential  access  method  is  the 
Indexed  Sequential  Processor  (ISP) . 

c.  The  sequential  access  method  is  called  Sequential. 

4.10.3  IBM  File  Access  Methods.  The  file  access  methods  of 
the  IBM  370  system  are  as  follows: 

a.  The  random  access  method  is  called  the  Direct  Access 
Method  (DAM) . Another  IBM  file  system  which  uses  a 
random  access  method  is  the  Integrated  Data  Base 
Management  System  (IDMS) . This  system  is  comparable 
to  the  IDS  system  described  for  the  Honeywell  machine. 

In  addition,  it  allows  the  accessing  of  a single  field 
of  information  using  various  field  descriptions. 

b.  The  indexed  sequential  access  method  is  called  Indexed 
Sequential  Access  Method  (ISAM) . 

c.  The  sequential  file  access  method  is  the  Sequential 
Access  Method  (SAM) . 

d.  The  last  access  method  to  be  discussed  is  the  Virtual 
Storage  Access  Method  (VSAM) . This  method  actually 
encompasses  all  three  types  of  file  access  methods: 
sequential,  random,  and  indexed  sequential.  The  VSAM 
file  organization  was  developed  to  provide  optimized 
usage  of  virtual  storage  and  is  used  with  direct  access 
storage  devices. 

4.10.4  Honeywell/IBM  Language/File  Relationships.  The  Honeywell 
Series  60  Level  66  and  IBM  370  computers  have  some  file  access 
methods  which  appear  similar  in  concept.  The  relationships 
between  these  systems  are  shown  in  Figure  4-10. 


a.  Figure  4-10  provides  some  guidance  for  selecting  the 

appropriate  file  access  method  when  programs  are  trans- 
ferred from  one  machine  to  another.  Although  the 
specific  language  verbs  may  not  be  precisely  the  same, 
the  overall  concepts  behind  the  file  organizations  are 
similar. 


b.  Another  consideration  when  working  with  any  of  the  file 
access  methods  on  either  the  Honeywell  or  IBM  computer 
systems  is  the  languages'  ability  to  read  or  write  using 
a particular  file  access  method.  Figure  4-11  illustrates 
some  COBOL/FORTRAN  language  restrictions  for  reading  and 
writing  to  either  Honeywell  or  IBM  files.  It  should  be 
noted  that  the  IDS  file  organization  on  the  Honeyweil 
computer  and  the  IDMS,  ISAM,  and  VSAM  file  access  methods 
on  the  IBM  computer  can  only  be  used  by  COBOL  programs. 
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HONEYWELL  SERIES  60  LEVEL  66  FILE  STRUCTURE 


BASIC  FILE 
ACCESS  TYPE 


SEQUENTIAL 


INDEXED 

SEQUENTIAL 


RANDOM 


IBM  FILE  ACCESS 
METHOD 


SEQUENTIAL  ACCESS 
METHOD  (SAM) 

INDEXED  SEQUENTIAL 
ACCESS  METHOD  (ISAM) 


DIRECT  ACCESS 
METHOD  (DAM) 

INTEGRATED  DATA  BASE 
MANAGEMENT  SYSTEM  (IDMS) 


FIGURE  4-9 

IBM  370  FILE  STRUCTURE 


»IOHDl 

5>  w 2 w 

20  00 

SC  M C 
W X w 
3 2 M 2 
O h3 
M H 

£ £ 


I 


H 

CO 

TJ 


BASIC  FILE  ACCESS  TYPE  IBM  FILE  ACCESS  METHOD  HONEYWELL  FILE  ACCESS  METHOD 


HONEYWELL 


SECTION  5.  DATA  REPRESENTATION 


5.1  Introduction.  Before  effective  interfaces  between  FORTRAN 
and  COBOL  can  be  accomplished,  the  programmer  must  be  aware  of 
the  manner  in  which  his  data  is  being  stored.  The  manner  in 
which  data  are  stored  varies  between  data  types,  languages,  and 
computers.  Following  is  a discussion  of  this  problem. 

5.2  The  IBM  Computer.  The  IBM  computer  uses  words  composed  of 
4 bytes  (see  Section  4 for  a more  complete  discussion).  Each 
byte  contains  8 bits.  The  addressing  scheme  on  IBM  computers 
is  to  use  the  number  of  the  first  byte  in  the  word  as  the 
address  of  the  entire  word  (recall  bytes  are  numbered  beginning 
with  0)  . Thus,  the  address  of  the  first  word  is  0;  the  address 
of  the  second  word  is  4 (the  first  word  has  4 bytes  numbered 

0,  1,  2,  3;  the  second  word  contains  bytes  4,  5,  6,  7;  etc),  the 
address  of  the  third  word  is  8,  etc.  In  addition  to  using  a 
full-word  (4  bytes)  of  storage,  the  IBM  computer  can  also  use 
half-words  (2  bytes)  or  double-words  (8  bytes) . The  word  length 
the  computer  will  use  depends  upon  which  data  type  is  being  used. 
However,  when  passing  data  from  one  language  to  another  it 
becomes  critical  to  know  on  which  word  boundary  data  are  aligned. 
A boundary  is  a half-word  boundary  if  the  address  is  evenly 
divisible  by  2;  a full-word  boundary  if  it  is  evenly  divisible 
by  4;  and  a double  word  boundary  if  evenly  divisible  by  8. 

5.2.1  IBM  COBOL.  Following  are  the  data  types  found  in  IBM 
COBOL  and  the  word  alignment  used. 

5. 2. 1.1  SYNC  vs  Non-SYNC.  The  word  alignment*  used  by  COMP, 
COMP-1,  or  COMP-2  items  vary  between  compilers.  Without  the  SYNC 
usage  it  is  very  difficult  to  determine  the  proper  word  'alignment. 
Therefore,  ail -COMP.,  COMP-1,  and  COMP-2  items  should  have  a SYNC 
usage. 

5 . 2 . 1 . 2 COMP  SYNC . The  COMP  SYNC  usage  is  used  for  fixed- 
point  (integer)  data  representation.  The  word  boundary  align- 
ment for  COMP  SYNC  depends  on  the  PICTURE  clause  being  used.  If 
the  PICTURE  clause  contains  1-4  digits  the  computer  will  use  a 
half-word  for  storage  and  will  align  it  on  a half-word  boundary. 

If  the  PICTURE  contains  5-9  ditits  a full-word  will  be  used  and 
aligned  on  a full-word  boundary.  If  the  PICTURE  contains  10  or 
more  digits  2 full  full-words  will  be  used;  however,  the  align- 
ment is  on  a full -word  boundary,  not  necessarily  a double  word 
boundary. 
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5. 2. 1.3  COMP- 1 SYNC.  The  COMP-1  SYNC  usage  is  used  for  single 
precision  floating-point  (real)  data  representation.  COMP-1 
SYNC  uses  a full-word  of  storage  aligned  on  a full -word  boundary. 

5. 2. 1.4  COMP- 2 SYNC.  The  COMP-2  SYNC  usage  is  used  for  double 
precision  floating-point  (real)  data  representation.  COMP-2 
SYNC  uses  a double  word  of  storage  aligned  on  a double  word 
boundary. 

5.2.1. 5 COMP-3.  The  COMP-3  usage  is  used  for  internal  decimal 
items  and  stores  them  in  packed  decimal  format.  COMP-3  items 
may  begin  on  any  byte,  and  extend  for  as  many  bytes  as  necessary. 

5.2.1. 6 COMP-4.  COMP-4  is  equivalent  to  the  COMP  format  (see 
paragraph  5. 2 . 1 . 2 ) . 

5.2.1. 7 DISPLAY.  The  use  of  DISPLAY  results  in  data  being 
represented  in  character  format.  The  data  may  begin  on  any  byte 
and  continue  for  as  may  bytes  as  necessary.  Unless  COMP, 

COMP-1,  COMP-2,  COMP-3,  or  COMP-4  is  specified  the  default  will 
be  DISPLAY,  even  if  the  PICTURE  clause  is  numeric.  For  example, 
Tf  the  following  is  in  a COBOL  program: 

77  ITEM  PICTURE  S99  VALUE  +12. 

the  character  representation  of  the  number  +12  will  be  stored 
in  ITEM. 

5.2.2  IBM  FORTRAN.  Following  are  the  data  types  found  in  IBM 
FORTRAN  and  their  corresponding  word  alignment. 

5. 2. 2.1  INTEGER* 2 . The  INTEGER* 2 field  is  used  for  single  pre- 
cision  fixed-point  (integer)  data  representation.  INTEGER* 2 
uses  a half-word  of  storage  and  is  aligned  on  a half-word 
boundary . 

5. 2. 2. 2 INTEGER.  The  INTEGER  (or  INTEGER* 4)  field  is  used  for 
double  precision  fixed-point  data  representation.  INTEGER  (or 
INTEGER*4 ) uses  a full-word  of  storage  and  is  aligned  on  a 
full-word  boundary. 

5 . 2 . 2 . 3 REAL . The  REAL  (or  REAL*4)  field  is  used  for  single 
precision  floating-point  (real)  data  representation.  REAL*4 
(or  REAL)  uses  a full-word  of  storage  and  is  aligned  on  a full- 
word  boundary. 

5. 2. 2. 4 DOUBLE  PRECISION.  The  DOUBLE  PRECISION  (or  REAL* 8) 
field  is  used  for  double  precision  floating-point  (real)  data 
representation.  DOUBLE  PRECISION  (REAL*8)  uses  a double-word 
of  storage  and  is  aligned  on  a double-word  boundary. 
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5.2.3  IBM  COBOL/FORTRAN  Interfacing.  Programs  written  in  one 
language  calling  routines  in  another  language,  be  it  COBOL 
calling  FORTRAN  or  FORTRAN  calling  COBOL,  require  special  care. 
Great  attention  must  be  taken  to  insure  data  items  are  com- 
patible, and  that  word  boundaries  are  correct.  Below  are  some 
considerations  to  use  when  interfacing  IBM  COBOL  and  IBM 
FORTRAN. 

5.2. 3.1  Data  Type  Compatibility.  In  order  for  the  computer  to 
interpret  the  data  correctly  in  both  the  calling  program  and 

the  called  subroutine,  the  data  being  passed  must  be  consistently 
defined  in  both  programs.  Figure  5-3  shows  the  COBOL  data  types 
and  their  equivalent  FORTRAN  types.  Figure  5-4  shows  the  FORTRAN 
data  types  and  their  equivalent  COBOL  types.  For  example,  if 
the  FORTRAN  program  is  to  pass  an  INTEGER  value  to  the  COBOL 
program,  the  COBOL  data  item  must  be  defined  as  COMP.  In  addition, 
if  the  FORTRAN  data  item  is  INTEGER*2  the  PICTURE  clause  in  COBOL 
must  contain  4 or  less  digits.  If  the  item  is  INTEGERM  the 
PICTURE  clause  must  conain  5-9  digits. 

5. 2. 3. 2 Incompatible  Data  Types.  As  can  be  seen  from  Figures 
5-3  and  5-4,  data  types  exist  in  one  language  for  which  no 
corresponding  data  types  exist  in  the  other  language.  For 
example,  a COMP  usage  with  10  or  more  digits  in  COBOL  represents 

an  integer  number  stored  in  a double  word  (see  paragraph  5. 2. 1.1). 
FORTRAN,  however,  only  has  the  ability  of  storing  integer  numbers 
in  a half-word  or  a full-word,  not  in  a double  word  (paragraph 
5. 2. 2. 2).  Therefore,  if  a COBOL  program  passes  a COMP  value 
with  a PICTURE  containing  10  or  more  digits  to  FORTRAN,  the 
FORTRAN  program  will  be  unable  to  handle  the  passed  data  cor- 
rectly. However,  it  should  be  noted  that  when  inconsistent  data 
items  are  passed  from  language  to  language  the  computer  will  not 
issue  an  error  statement.  The  computer  will  continue  to  operate 
on  this  incorrectly  defined  data,  assuming  this  is  exactly  what 
the  programmer  had  originally  desired.  It  is,  therefore, 
entirely  up  to  the  programmer  to  insure  data  items  are  defined 
the  same  in  both  the  calling  and  called  programs. 

5. 2. 3. 3 Word  Boundary  Alignment.  The  programmer  is  also  respon- 
sible  for  insuring  correct  word  boundary  alignment  on  data  items 
being  passed  from  one  language  to  another.  Word  boundary  align- 
ment may  be  the  single  most  critical,  and  possibly  the  most 
difficult  consideration  when  passing  data  between  two  languages. 

It  is  extremely  important  to  insure  that  the  word  boundary  of 

a particular  data  item  matches  the  word  boundary  expected  in 
the  called  routine.  Following  is  a discussion  of  word  boundary 
alignment. 


5. 2. 3. 3.1  Word  Alignment.  Paragraph  5.2.1  describes  the  IBM 
COSOL  data  types  and  the  word  boundaries  on  which  these  data 
types  align.  Paragraph  5.2.2  describes  the  FORTRAN  data  types 
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and  alignment.  One  must  keep  these  facts  in  mind  when  passing 
data  from  one  language  to  another.  Also,  it  is  important  to 
realize  that  COBOL  begins  01  levels  on  a double  word  boundary. 
Using  this  information,  it  is  possible  to  determine  where  word 
boundaries  of  the  data  items  will  fall. 

5. 2. 3. 3. 2 Data  Passing.  Data  is  not  actually  passed  from  one 
routine  to  another.  In  reality,  the  item  being  passed  is  the 
address  of  the  beginning  of  the  data  item.  In  FORTRAN  this 
address  would  be  the  beginning  of  the  data  items  represented  by 
a variable  name.  In  COBOL  this  address  could  be  the  beginning 
of  an  item,  table,  group  item,  etc.  For  example,  if  FORTRAN 

is  passing  a 3 x 4 array  named  ARRAY,  the  address  of  the  begin- 
ning of  ARRAY  is  passed.  It  is  up  to  the  receiving  program  to 
realize  this  address  represents  the  beginning  of  a 3 x 4 array. 
No  information  stating  the  size,  dimension,  etc.  of  the  data 
item  is  passed. 

5. 2. 3. 3. 3 Internal  Storage  of  Data.  Data  is  stored  in  the  com- 
puter's memory  on  a sequential  basis.  For  example,  asstime  the 
following  appear  in  a COBOL  program: 

77  VALUE-1  PIC  99  VALUE  1. 

77  VALUE-2  PIC  99  VALUE  2. 

As  the  COBOL  program  is  compiled  internal  storage  will  be  allo- 
cated for  both  VALUE-1  and  VALUE-2.  Since  these  two  items  are 
defined  sequentially  in  the  program,  the  two  items  will  be 
stored  sequentially  in  the  computer.  Therefore,  VALUE-1  will 
be  immediately  followed  by  VALUE-2.  This  is  true  of  each  data 
item  described  in  a COBOL  program,  and  is  also  true  of  each  data 
item  in  FORTRAN. 


5. 2. 3. 3. 4  COBOL  Alignment.  The  easiest  way  to  explain  the 
manner  in  which  COBOL  aligns  data  may  be  to  use  the  following 
example : 

01  TABLE . 

03  ITEM-1  PIC  XXXX. 

03  ITEM-2  PIC  S9 (5)  COMP. 

03  ITEM-3  PIC  S9(4)  COMP. 

03  ITEM-4  PIC  XXX. 

03  ITEM-5  COMP-1  SYNC. 

In  this  example  TABLE  begins  on  a double  word  boundary  because 
TABIE  is  a 01  level  (paragraph  5. 2. 3. 3.1).  Since  TABLE  repre- 
sents the  collection  of  data  items  grouped  beneath  it,  and  not 
an  individual  data  item,  ITEM-1  begins  at  the  same  location  as 
TABLE,  i.e.,  a double  word  boundary.  ITEM-1  is  DISPLAY  (para- 
graph 5. 2. 1.7),  therefore  each  digit  represents  1 byte.  ITEM-1 
contains  4 bytes  (1  word) . ITEM-2  begins  immediately  following 
ITEM-1;  therefore  ITEM-2  begins  on  a full-word  boundary.  ITEM-2 
is  COMP  (paragraph  5. 2. 1.1)  with  a PIC  of  S9(5)  which  means 
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ITEM-2  occupies  1 word  of  storage.  ITEM-3  begins  following 
ITEM-2  and  is  on  a full-word  boundary.  ITEM-3  is  PIC  S9(4) 

COMP  and  uses  a half-word  of  storage.  ITEM-4  begins  following 
ITEM-3.  Since  ITEM-3  ended  on  a half-word  boundary  ITEM-4 
begins  on  this  half-word  boundary.  ITEM-4  is  DISPLAY  with  a 
length  of  3 bytes.  This  means  ITEM-4  ends  in  the  middle  of  a 
half-word.  ITEM-5  follows  ITEM-4,  but  ITEM-5  is  COMP-1  SYNC 
(paragraph  5. 2. 1.3).  COMP-1  SYNC  items  must  begin  on  a full-word 
boundary.  This  compiler  will  skip  the  appropriate  number  of 
bytes  necessary  so  that  ITEM-5  can  begin  on  the  next  full-word 
boundary.  See  the  following  diagram  for  a visual  description 
of  TABLE  (note  that  the  first  full-word  is  numbered  0.  When 
determining  word  alignment,  numbering  the  first  full-word  0 
makes  the  process  simpler) : 


WORD 


ITEM- 3 

ITEM-1  ITEM-2  ITEM-4 


ITEM-5 


0 

# 


12 


16 


The  unused  bytes  in  word  4 are  called  "slack  bytes."  The  com- 
piler provided  these  bytes  to  force  ITEM-5  to  begin  in  a full- 
word  boundary.  Unless  the  programmer  is  familiar  with  the 
manner  in  which  the  compiler  works,  the  programmer  will  be 
unaware  of  these  slack  bytes.  The  compiler  does  not  inform  the 
programmer  when  slack  bytes  are  being  inserted. 

5. 2. 3. 3. 5 IBM  FORTRAN  Alignment.  FORTRAN  data  items  are 
aligned  as  described  in  paragraph  5.2.2.  In  an  array,  each 
element  is  aligned  on  the  same  type  of  boundary.  FORTRAN  does 
not  allow  group  items,  as  COBOL  does.  Because  of  this  fact 
slack  bytes  do  not  present  the  problem  in  FORTRAN  as  they  do 
in  COBOL. 

5. 2. 3. 4 Language  Interfacing.  Interfacing  FORTRAN  and  COBOL 
presents  some  problems.  Some  of  the  more  common  problems,  and 
their  solutions  are  discussed  below. 

5. 2. 3. 4.1  Padding.  Just  as  it  is  necessary  for  the  compiler 
to  insert  "slack  bytes"  (paragraph  5. 2. 3. 3. 4)  for  proper  word 
boundary  alignment  in  internal  storage,  it  may  be  necessary  for 
the  programmer  to  insert  "slack  bytes"  in  the  data  structure 
for  proper  alignment.  This  becomes  increasingly  necessary  when 
interfacing  two  languages  such  as  FORTRAN  and  COBOL.  Again  it 
is  very  important  for  the  programmer  to  realize  where  data 
alignment  will  occur. 


% 


IHMM 


t 


5-5 


For  example,  assume  a COBOL  program  is  to  pass  a group 
item  to  FORTRAN.  This  group  item  consists  of  VALUE-1  and 
VALUE-2,  each  PIC  XXXX.  If  the  FORTRAN  routine  receives  the 
COBOL  values  in  a two  element  array,  with  the  first  element 
of  the  array  containing  VALUE-1,  and  the  second  element  con- 
taining VALUE-2 , then  the  following  would  be  correct : 

COBOL: 

01  TABLE . 

03  VALUE-1  PIC  XXXX. 

03  VALUE-2  PIC  XXXX. 


CALL  ' FORTSB ' USING  TABLE. 

FORTRAN: 

SUBROUTINE  FORTSB  (ITEM) 

DIMENSION  ITEM  (2) 

The  reason  this  would  be  valid  is  because  the  COBOL  01  level 
begins  on  a double  word  boundary.  This  means  VALUE-1  begins 
on  a double  word  boundary.  VALUE-1  is  DISPLAY  containing  4 
characters  (bytes)  and  therefore  is  one  full-word  in  length. 
VALUE-2  begins  immediately  following  VALUE-1.  This  means  VALUE-2 
begins  on  a full-word  boundary.  Storage  looks  as  follows: 


VALUE -1  VALUE -2 


The  FORTRAN  routine  has  ITEM  dimensioned  to  2.  Each  ele- 
ment of  ITEM  (by  default)  is  1 word  in  length,  beginning  on  a 
full-word  boundary.  The  FORTRAN  storage  appears  as: 

''i'EM(l)  ITEM  ( 2 ) 


The  COBOL  storage  begins  on  a double-word  boundary;  the  FORTRAN 
on  a full-word.  Since  a double  word  boundary  is  also  a full- 
word  boundary,  the  FORTRAN  representation  is  compatible  with 
the  COBOL.  The  four  characters  of  VALUE-1  will  be  in  ITEM(l) , 
the  4 in  VALUE-2  will  be  in  ITEM(2). 

Now  assume  that  the  items  in  the  COBOL  program  only  contain 
3 characters.  The  COBOL  would  appear  as: 


01  TABLE. 

03  VALUE-1  PIC  XXX. 
03  VALUE-2  PIC  XXX. 


CALL  ' FORTSB 1 USING  TABLE. 

TABLE  would  still  begin  on  a double  word  boundary.  However, 
VALUE-1  and  VALUE-2  would  each  contain  3 bytes,  and  be  stored 
sequentially  as: 

VALUE-1  VALUE-2 


1 

1 

1 — t — 1 — 

1 1 i A. 

0 4 


Notice  the  first  byte  of  VALUE-2  appears  as  the  last  byte  in 
word  1.  When  FORTRAN  is  called  only  the  address  of  the  begin- 
ning of  TABLE  (address  0 in  this  case)  is  passed.  FORTRAN  goes 
to  this  address  and  assumes  storage  is  as  FORTRAN  expects  it 
(as  described  above) . 

If  VALUE-1  contained  the  characters  ABC,  and  VALUE-2  the 
characters  DEF,  after  the  call  to  FORTRAN  ITEM(l)  would  contain 
the  characters  ABCD  and  ITEM (2)  would  contain  EF00,  where  00 
may  be  blanks,  or  garbage  characters. 

In  order  for  FORTRAN  to  receive  the  data  properly  (i.e., 

ITEM (1)  containing  ABC,  and  ITEM (2)  containing  DEF)  padding  in 
the  form  of  a FILLER  must  be  used  in  COBOL.  One  word  of  storage 
contains  4 bytes,  or  4 characters.  VALUE-1  and  VALUE-2  contain 
3 characters  each.  A FILLER  of  one  character  is  necessary  to 
complete  the  word.  In  addition,  this  filler  should  have  a value 
of  a blank  in  order  to  insure  no  garbage  data  is  introduced. 

The  following  would  be  acceptable  in  the  COBOL  program: 

01  TABLE. 

03  VALUE- 1 PIC  XXX. 

03  FILLER  PIC  X VALUE  SPACES. 

03  VALUE-2  PIC  XXX. 

03  FILLER  PIC  X VALUE  SPACES. 

The  COBOL  storage  would  be: 


VALUE- 1 VALUE-2 
, “i — l 1 — I 


I 

J 

i 

f v 

* n 

1 1 —A— 

* n 

■ 1 A 

0 F4  F 
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Notice  that  VALUE-2  now  begins  in  the  second  word.  If  the 
FORTRAN  routine  is  now  called  using  this  TABLE,  ITEM(l)  would 
contain  ABC,  and  ITEM (2)  DEF. 


5. 2. 3. 4. 2 Passing  Character  Strings.  Passing  character  strings 
between  COBOL  and  FORTRAN  present  some  unique  problems.  Para- 
graph 5. 2. 3. 4.1  used  this  problem  as  an  example;  however,  the 
problem  is  more  complex  than  this  example. 

One  character  requires  one  byte  for  storage.  One  word  con- 
tains 4 bytes  and  can,  therefore,  hold  a maximum  of  4 characters. 

Recall  any  COBOL  data  item  which  does  not  have  a USAGE  of 
COMP,  COMP-1,  COMP-2,  COMP-3,  or  COMP-4  will  automatically  be 
considered  DISPLAY  (paragraph  5. 2. 1.7).  USAGE  DISPLAY  means  the 
data  is  stored  as  character  information. 


To  demonstrate  the  number  of  words  required  assume  the 
following: 

01  ITEM-1  PIC  XX. 

01  ITEM-2  PIC  XXXXX. 

ITEM-1  would  require  a half-word  of  storage  since  PIC  XX  defines 
two  characters  of  data.  Two  characters  require  two  bytes  (one 
half-word)  of  storage.  ITEM-2  contains  5 characters.  This 
would  require  5 bytes  of  storage:  one  full-word  plus  one  addi- 
tional byte. 

IBM  FORTRAN  does  not  contain  a character  data  type  as  such. 
However,  character  data  may  be  stored  into  either  a fixed-point 
or  a floating-point  variable.  If  the  variable  is  defined  as 
single-precision  (1  word  of  storage)  4 characters  will  be  stored 
per  variable  element.  If  the  variable  is  defined  as  double- 
precision (two  words  of  storage)  each  variable  element  will  con- 
tain 8 characters.  The  programmer  must  realize  that  FORTRAN 
requires  the  use  of  a full-word  for  each  element  regardless  of 
how  many  characters  may  actually  be  contained  in  the  word.  The 
programmer  must  also  realize  that  FORTRAN  stores  the  character 
representation  of  character  data  in  the  variable.  However,  as 
far  as  FORTRAN  is  concerned  the  data  is  actually  fixed  or 
floating-point  numbers.  If  arithmetic  operations,  comparisons, 
etc,  are  accomplished  on  this  character  (not  numeric)  data 
unpredictable  results  will  occur.  The  computer  will  not  inform 
the  programmer  that  any  problem  has  occurred. 

When  passing  character  data  from  COBOL  to  FORTRAN  the  pro- 
grammer must  be  aware  of  the  alignment  of  the  data  and  the  num- 
ber of  words  being  passed.  FORTRAN  demands  that  the  data  begin 
on  a full-word  boundary;  therefore,  the  programmer  must  insure 
that  his  COBOL  data  begins  on  a full-word  (see  paragraphs 


5. 2. 3. 3. 3 and  5. 2. 3. 4.1).  FORTRAN  also  requires  the  use  of 
complete  words.  The  COBOL  data  should  use  complete  words  also. 
If  the  COBOL  data  has  an  incomplete  word  the  programmer  should 
pad  (paragraph  5. 2. 3. 4.1)  the  data  so  that  a complete  word  is 
used. 

For  example,  if  the  following  appeared  in  COBOL: 

01  CHAR-ITEM. 

03  CHAR  PIC  X(10) . 

03  FILLER  PIC  XX  VALUE  SPACES. 

CHAR-ITEM  could  be  passed  to  FORTRAN  since  it  begins  on  a full- 
word  boundary  (insured  by  the  01  level) , and  contains  3 full- 
words  (10  characters  +2  characters  = 12  characters). 

The  FORTRAN  program  which  is  to  receive  the  character  data 
must  allow  for  at  least  as  many  words  of  storage  in  the  FORTRAN 
program  as  is  being  sent  by  the  COBOL  programmer.  Each  single- 
precision variable  contains  1 word  per  element.  The  variable 
must  be  dimensioned  to  contain  as  many  elements  as  there  are 
words  being  sent  from  COBOL.  For  example,  if  the  COBOL  program 
is  passing  3 words  of  storage  then  the  FORTRAN  single-precision 
variable  must  be  DIMENSIONed  to  at  least  3.  If  double-precision 
(two  words)  variables  are  used  the  variable  must  be  dimensioned 
to  at  least  1/2  of  the  number  of  COBOL  words  being  passed  if 
the  number  of  words  is  even,  or  1 word  + 1/2  the  number  of  words 
if  the  number  is  odd. 

For  example: 

COBOL: 

01  TABLE. 

03  CHAR  PIC  X ( 21 ) . 

03  FILLER  PIC  X ( 3 ) VALUE  SPACES. 


CALL  ' FORTSB ' USING  TABLE. 

FORTRAN: 

SUBROUTINE  FORTSB  (A) 

DIMENSION  A (6) 

would  be  valid.  TABLE  begins  on  a full-word  boundary  and  con- 
tains 6 full-words  (when  the  FILLER  is  supplied) . A is  dimen- 
sioned to  6,  so  6 words  of  storage  is  allocated. 
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After  the  CALL  is  completed  the  first  element  of  A would 
contain  the  first  4 characters  of  CHAR,  the  second  element  the 
next  4,  and  so  on.  The  last  element  of  A would  contain  the 
last  character  of  CHAR,  plus  the  3 FILLER  blanks. 

It  is  important  to  realize  the  manner  in  which  COBOL 
stores  the  character  data.  For  example, 

01  ITEMS  PIC  XXX  OCCURS  3 TIMES, 
contains  9 characters  in  succession. 

In  storage  this  appears  as: 


1 — 

I 

«■  ■■ 

7 

0 4 8 


Assuming  the  first  9 letters  of  the  alphabet  were  stored 
into  ITEMS,  and  the  following  FORTRAN  subroutine  is  called 

SUBROUTINE  FORT  (K) 

DIMENSION,  K (3) 

then  K (1)  contains  ABCD,  K(2)  contains  EFGH,  and  K(3)  contains 
I plus  three  garbage  characters.  If  the  programmer  actually 
wanted  the  COBOL  data  moved  on  an  element-by-element  basis 
(i.e.,  K (1)  containing  ABC,  K(2)  DEF,  and  K(3)  GHI)  then  the 
COBOL  data  could  be  padded  as  follows: 

01  GROUP-ITEM. 

03  SUB-GROUP  OCCURS  3 TIMES. 

05  ITEMS  PIC  XXX. 

05  FILLER  PIC  X VALUE  SPACES. 

This  would  pad  each  element  with  a blank  so  that  each  word 
would  contain  3 characters  and  1 blank. 

When  passing  FORTRAN  character  data  to  COBOL  care  must  again 
be  used.  The  COBOL  data  must  be  defined  in  the  LINKAGE  SECTION 
to  accommodate  the  number  of  words  being  passed  from  FORTRAN. 

If  the  FORTRAN  program  contains  a variable  containing  character 
data,  and  the  variable  is  dimensioned  to  6,  then  the  COBOL  must 
provide  6 words  of  storage.  In  addition,  the  data  must  begin 
on  a full-word.  For  example: 

01  VARIABLE  PIC  X(24) . 

would  begin  on  a full-word,  and  contain  6 words. 


VARIABLE  would 


r 


E 


be  acceptable  in  the  COBOL  program  to  recieve  the  data  from 
FORTRAN. 

If  the  COBOL  LINKAGE  SECTION  contained: 


TABLE. 

03 

ITEM-1 

PIC 

XX. 

03 

ITEM-2 

PIC 

X (4 ) . 

03 

ITEM- 3 

PIC 

X (15 ) 

03 

ITEM-4 

PIC 

X. 

03 

ITEM-5 

PIC 

XX. 

PROCEDURE  DIVISION  USING  TABLE. 

again  TABLE  would  begin  on  a full-word  boundary  and  would  con- 
tain 6 words  (2+4+15+1+2  = 24  characters  = 6 words) . TABLE 
would  also  be  acceptable  in  the  COBOL  program  to  receive  the 
FORTRAN  data.  Using  would  result  in  the  first  two  characters 
passed  from  FORTRAN  being  in  ITEM-1,  the  next  4 characters  in 
ITEM-2,  the  next  15  in  ITEM-3,  and  so  on. 

5. 2. 3. 4. 3 Passing  Arrays.  Arrays  may  be  passed  between  COBOL 
and  FORTRAN,  and  FORTRAN  and  COBOL.  One  dimensional  arrays 
(e.g.,  arrays  of  length  n)  do  not  pose  as  many  problems  as 
multi-dimensional  arrays. 

As  with  all  items  being  passed  between  languages  word  align- 
ment and  length  must  be  the  same  in  both  languages.  For  example, 
assume  the  following  double  precision  one  dimensional  array 
(length  5)  in  FORTRAN  is  to  be  passed  to  COBOL: 

DOUBLE  PRECISION  A 
DIMENSION  A (5) 

CALL  COBSUB  (A) 


Each  element  of  A is  two  words  in  length,  aligned  on  a double 
word  boundary  (paragraph  5. 2. 2.4).  In  addition  A contains  5 
elements.  The  corresponding  IBM  COBOL  data  type  is  COMP-2 
(Figure  5-4).  The  COBOL  could  contain 

LINKAGE  SECTION. 

01  ITEM. 

03  NUMBERS  COMP-2  OCCURS  5 TIMES. 


PRnrFnriRF  dtvtston  dstnc;  ttfm. 
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ITEM  begins  on  a double  word  boundary  (paragraph  5. 2. 3. 3.1). 

Each  element  is  two  words  in  length  (paragraph  5. 2. 1.4)  and 
there  are  5 elements.  The  FORTRAN  CALL  statement  could  cor- 
rectly pass  the  FORTRAN  array  A into  the  COBOL  table  (array) 
ITEM.  A(l)  would  be  stored  in  NUMBERS  (1),  A(2) , in  NUMBERS 
(2),  etc. 

Passing  a two  dimensional  array  between  FORTRAN  and  COBOL, 
or  COBOL  and  FORTRAN  has  an  additional  factor  of  which  the 
programmer  must  be  aware.  A FORTRAN  column  is  a COBOL  row, 
and  a FORTRAN  row  is  a COBOL  column. 

Attachment  3 contains  an  example  of  this  problem.  The 
FORTRAN  driver  defines  I as  a 3 x 4 array.  This  array  is  passed 
to  the  COBOL  subroutine  COBSUB.  COBSUB  contains: 

LINKAGE  SECTION. 

01  ARRAY-TABLE. 

03  MATRIX  OCCURS  4 TIMES. 

05  COLUMNS  PIC  X(6)  COMP  OCCURS  3 TIMES. 

This  defines  the  COBOL  ARRAY-TABLE  as  a 4x3  array. 

In  a 3 dimensional  array  the  first  and  last  dimensions  are 
reversed. 

5. 2. 3. 4. 4 Passing  COBOL  Group  Items.  COBOL  has  the  capability 
to  define  an  item  (group  item)  which  is  in  turn  divided  into 
other  items.  These  subdivisions  may  have  different  PICs  and 
USAGES.  For  example: 

01  GROUP-ITEM. 

03  ITEM-1  PIC  S9 (5)  COMP. 

03  ITEM-2  PIC  XXXX. 

03  ITEM-3  COMP-2. 

GROUP-ITEM  is  the  name  of  the  group  item.  This  group  item  is 
subdivided  into  ITEM-1  (integer,  full-word) , ITEM-2  (display, 
full-word) , and  ITEM-3  (floating-point  double  precision, 
double  word) . 

FORTRAN  does  not  have  the  equivalent  to  a group-item.  Each 
element  in  a FORTRAN  data  item  is  assumed  by  the  compiler  to 
be  of  the  same  data  type.  For  example,  if  the  above  COBOL  pro- 
gram calls  a FORTRAN  subroutine  using 

CALL  'FORT'  USING  GROUP-ITEM. 

and  the  FORTRAN  subroutine  is  as  follows: 
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SUBROUTINE  FORT  (ARRAY) 
DIMENSION  ARRAY (4) 


ARRAY  is  a floating-point  data  item  containing  4 elements. 
After  the  CALL,  ARRAY (1)  would  contain  ITEM-1,  ARRAY (2)  ITEM-2. 
ARRAY (3)  and  ARRAY (4)  would  contain  the  two  words  found  in 
ITEM-3.  The  number  in  ARRAY (1)  would  be  in  fixed  point  repre- 
sentation. However,  FORTRAN  would  assume  the  number  represented 
was  in  floating-point . ARRAY (2)  would  contain  the  character 
string  found  in  ITEM-2;  FORTRAN  would  again  assume  the  repre- 
sentation was  floating.  ARRAY (3)  would  contain  the  first  half 
of  a double  word  floating-point  number.  FORTRAN  would  assume 
this  is  a single  word  floating-point  numer.  ARRAY ( 4 ) would 
contain  the  second  word  of  the  double  word  ITEM-3.  Again, 
FORTRAN  would  assume  this  is  a floating-point  number. 

In  many  cases  it  is  possible  to  pass  data  in  this  manner  and 
handle  the  FORTRAN  data  correctly.  This  process  is  lengthy, 
and  confusing.  Because  of  this  confusion,  an  alternate  method 
of  passing  group  items  is  encouraged. 

If  GROUP-ITEM  is  again  defined  as  above,  the  following  CALL 
could  be  used: 

CALL  ' F0RT2 ' USING  ITEM-1,  ITEM- 2 , ITEM- 3. 

The  FORTRAN  routine  would  now  appear  as: 

SUBROUTINE  (I,A,B) 

DOUBLE  PRECISION  B 

ITEM-1  (integer,  single  word)  would  be  passed  to  I (integer, 
single  word) , ITEM-2  (character,  single  word)  to  A (character, 
single  word)  (see  paragraph  5. 2. 3. 4. 2),  and  ITEM-3  (floating- 
point, double  word)  to  B (floating-point  double  word).  (5, 

11,  12,  14,  15,  16,  17) 

5.3  The  Honeywell  Computer.  The  Honeywell  computer  uses  words 
composed  of  6 bytes  (see  Section  4 for  a more  complete  discus- 
sion) . Each  byte  contains  six  bits.  The  addressing  scheme  on 
the  Honeywell  computer  is  to  sequentially  number  each  word 
(recall  words  are  numbered  beginning  with  0) . Thus,  the  address 
of  the  first  word  is  0,  the  address  of  the  second  word  is  1, 
the  address  of  the  third  word  is  2,  etc.  In  addition  to  using 
a full-word  (6  bytes)  of  storage,  the  Honeywell  computer  can 
also  use  double  words  (12  bytes) . The  word  length  the  computer 
uses  depends  upon  which  data  type  is  being  used.  However,  when 
passing  data  from  one  language  to  another  it  becomes  critical 
to  know  on  which  word  boundary  data  are  aligned.  A boundary 
is  a double  word  boundary  if  its  address  is  divisible  by  2. 

5.3.1  Honeywell  COBOL.  Following  are  the  data  types  found  in 
Honeywell  COBOL  and  the  word  alignment  used. 

5-13 


I-  r wmami 


I 

'■i 

li 


; 


l 


5 . 3 . 1 . 1 COMP . The  COMP  usage  is  for  floating-point  data 
representation . If  the  PICTURE  clause  contains  1-8  digits 
one  full-word  of  storage  will  be  used.  Alignment  is  on  a 
full-word  boundary.  If  the  PICTURE  clause  contains  9-18 
digits  a double  word  will  be  used.  Alignment  is  on  a double 
word  boundary. 

5. 3. 1.2  COMP-1.  The  COMP-1  usage  is  for  fixed-point  data 
representation.  If  the  PICTURE  clause  contains  1-8  digits  a 
full-word  of  storage  will  be  used.  Alignment  is  on  a full- 
word  boundary.  If  the  PICTURE  clause  contains  9-18  digits  a 
double  word  will  be  used  on  a double  word  boundary. 

5 . 3 . 1 . 3 COMP-2 . The  COMP-2  usage  is  fof  floating-point  data 
representation . If  the  PICTURE  clause  contains  1-8  digits  a 
single-precision  floating-point  number  will  be  stored  in  one 
full-word,  aligned  on  a full-word.  If  the  PICTURE  clause  con- 
tains 9-18  digits  a double-precision  floating-point  number 
will  be  stored  in  a double  word,  aligned  on  a double  word. 

5. 3.1.4  COMP-3.  The  COMP-3  usage  is  used  for  fixed  point 
data  representation.  One  full-word  of  storage  is  used,  with 
alignment  on  a full-word. 

5. 3. 1.5  COMP-3  PACKED  SYNCHRONIZED  or  COMP-4.  The  COMP- 3 
PACKED  SYNCHRONIZED  or  COMP-4  usage  is  used  for  packed  decimal 
format  representation. 

5. 3. 1.6  DISPLAY.  The  DISPLAY  usage  results  in  data  being 
represented  in  character  format.  The  data  may  begin  on  any 
byte  and  continue  for  as  many  bytes  as  necessary.  Unless  COMP, 
COMP-1,  COMP-2,  COMP-3,  or  COMP-4  is  specified  the  default  will 
be  DISPLAY,  even  if  the  PICTURE  clause  is  numeric.  For  example , 
TF  the  following  is  in  a COBOL  program: 

77  ITEM  PICTURE  S99  VALUE  +12. 

the  character  representation  of  the  number  +12  will  be  stored 
in  ITEM. 


5.3.2  Honeywe 1 1 FORTRAN . Following  are  the  data  types  found 
in  Honeywell  FORTRAN  and  the  word  alignment  used. 

5. 3. 2.1  REAL.  REAL  data  items  are  used  for  single-precision 
floating-point  data  representation.  One  full-word  of  storage 
is  used,  aligned  on  a full-word  boundary. 

5. 3. 2. 2 DOUBLE  PRECISION.  DOUBLE  PRECISION  (or  REAL*9)  data 
items  are  used  for  double-precision  floating-point  data  rep- 
resentation. One  double  word  of  storage  is  used,  aligned  on  a 
double  word  boundary. 
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5 . 3 . 2 . 3 INTEGER . INTEGER  data  items  are  used  for  fixed 
point  data  representation.  One  full-word  of  storage  is  used, 
aligned  on  a full-word  of  storage. 

5 . 3 . 2 . 4 CHARACTER . CHARACTER  data  items  are  used  for 
character  data  representation.  The  form  of  this  statement 
is 


CHARACTER  item*S,  item*S...  * ~ 

where  item  is  the  variable  name,  and  *S  is  the  number  of 
characters  in  the  item.  If  each  item  is  of  the  same  length, 
the  statement  may  be  written  as 

CHARACTER  * S item,  item 

The  number  of  bytes  of  storage  used  is  equal  to  the  number  of 
characters  defined  by  *S. 

5.3.3  Honeywe 1 1 COBOL/FORTRAN . Programs  written  in  one  lan- 
guage calling  routines  in  another  language,  be  it  COBOL  call- 
ing FORTRAN  or  FORTRAN  calling  COBOL,  require  special  care. 
Great  attention  must  be  taken  to  insure  data  items  are  com- 
patible, and  that  word  boundaries  are  correct.  Below  are 
some  considerations  to  use  when  interfacing  Honeywell  COBOL 
and  Honeywell  FORTRAN. 

5. 3. 3.1  Data  Type  Compatibility.  In  order  for  the  computer 
to  interpret  the  data  correctly  in  both  the  calling  program 
and  the  called  subroutine,  the  data  being  passed  must  be  con- 
sistently defined  in  both  programs.  Figure  5-1  shows  the 
COBOL  data  types  and  their  equivalent  FORTRAN  types.  Figure 
5-2  shows  the  FORTRAN  data  types  and  their  equivalent  COBOL 
types.  For  example,  if  a FORTRAN  program  is  to  pass  a value 
defined  to  be  INTEGER  in  FORTRAN,  the  corresponding  data  item 
in  the  COBOL  routine  must  be  defined  as  COMP-1  or  COMP-3. 

5. 3. 3. 2 Incompatible  Data  Types.  As  can  be  seen  from  Figures 
5-1  and  5-2,  data  types  exist  in  one  language  for  which  no 
corresponding  data  types  exist  in  the  other  language.  For 
example,  a COMP-1  usage  in  COBOL  defines  a fixed  point  data 
representation.  If  the  PICTURE  clause  contains  9-18  digits, 

a double  word  of  storage  will  be  used  (see  paragraph  5. 3. 1.2). 
FORTRAN,  however,  only  can  represent  a fixed  point  number  in 
a full-word,  not  a double  word  (see  paragraph  5. 3. 2. 3).  There- 
fore, if  a COBOL  program  passes  a COMP-1  value  with  a PICTURE 
containing  9 or  more  digits  to  FORTRAN,  the  FORTRAN  program 
will  be  unable  to  handle  the  passed  data  correctly.  However, 
it  should  be  noted  that  when  inconsistent  data  items  are 
passed  from  language  to  language  the  computer  will  not  issue 
an  error  statement.  The  computer  will  continue  to  operate  on 


s 
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this  incorrectly  defined  data,  assuming  this  is  exactly 
what  the  programmer  had  originally  desired.  It  is,  there- 
fore, entirely  up  to  the  programmer  to  insure  data  items  are 
defined  the  same  in  both  the  calling  and  the  called  programs. 

5 . 3 . 3 . 3 Word  Boundary  A1 ignmen t . The  programmer  is  also 
responsible  for  insuring  correct  word  boundary  alignment  on 
data  items  being  passed  from  one  language  to  another.  Word 
boundary  alignment  may  be  the  single  most  critical,  and 
possibly  the  most  difficult,  consideration  when  passing  data 
between  two  languages.  It  is  extremely  important  to  insure 
that  the  word  boundary  of  a particular  data  item  matches  the 
word  boundary  expected  in  the  called  routine.  Following  is 
a discussion  of  word  boundary  alignment. 

5. 3. 3. 3.1  Word  Alignment.  Paragraph  5.3.1  describes  the 
Honeywell  COBOL  data  types  and  the  word  boundaries  on  which 
these  data  types  are  aligned.  Paragraph  5.3.2  describes  the 
FORTRAN  data  types  and  alignment.  One  must  keep  these  facts 
in  mind  when  passing  data  from  one  language  to  another.  Also, 
it  is  important  to  realize  that  COBOL  begins  ftl  levels  on  a 
double  word  boundary.  Using  this  information,  it  is  possible 
to  determine  where  word  boundaries  of  data  items  will  fall. 

5. 3. 3. 3. 2 Data  Passing.  Data  is  not  actually  passed  from 
one  routine  to  another.  In  reality,  the  item  being  passed  is 
the  address  of  the  beginning  of  the  data  item.  In  FORTRAN 
this  address  would  be  the  beginning  of  the  data  items  repre- 
sented by  a variable  name.  In  COBOL  this  address  could  be  the 
beginning  of  an  item,  table,  group  item,  etc.  For  example  if 
FORTRAN  is  passing  a 3 x 4 array  named  ARRAY,  the  address  of 
the  beginning  of  ARRAY  is  passed.  It  is  up  to  the  receiving 
program  to  realize  that  this  address  represents  the  beginning 
of  a 3 x 4 array.  No  information  stating  the  size,  dimension, 
etc,  of  the  data  item  is  passed. 

5. 3. 3. 3. 3 Internal  Storage  of  Data.  Data  is  stored  in  the 
computer's  memory  on  a sequential  basis.  For  example,  assume 
the  following  appears  in  a COBOL  program: 

77  VALUE-1  PIC  99  VALUE  1. 

77  VALUE-2  PIC  99  VALUE  2. 

As  the  COBOL  program  is  compiled  internal  storage  will  be 
allocated  for  both  VALUE-1  and  VALUE-2.  Since  these  two 
items  are  defined  sequentially  in  the  program  the  two  items 
will  be  stored  sequentially  in  the  computer.  Therefore, 
VALUE-1  will  be  immediately  followed  by  VALUE-2.  This  is  true 
of  each  data  item  described  in  a COBOL  program,  and  is  also 
true  of  each  data  item  in  FORTRAN. 
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5. 3.3. 3.4  Honeywell  COBOL  Alignment.  The  easiest  way  to 
explain  the  manner  in  which  COBOL  aligns  data  may  be  to  use 
the  following  example: 

01  TABLE. 

03  ITEM-1  PIC  X (6) . 

03  ITEM-2  PIC  S9  (5)  COMP-1. 

03  ITEM-3  PIC  XXX. 

03  ITEM-4  PIC  S9 (10)  COMP-2. 

In  this  example  TABLE  begins  on  a double  word  boundary  because 
TABLE  is  a 01  level  (paragraph  5. 3. 3. 3.1).  Since  TABLE  repre- 
sents the  collection  of  data  items  grouped  beneath  it,  and 
not  an  individual  data  item,  ITEM-1  begins  at  the  same  location 
as  TABLE,  i.e. , a double  word  boundary.  ITEM-1  is  DISPLAY 
(paragraph  5. 3. 1.6),  therefore  each  digit  represents  1 byte. 
ITEM-1  contains  6 bytes  (1  word) . ITEM-2  begins  immediately 
following  ITEM-1;  therefore  ITEM- 2 begins  on  a full-word 
boundary.  ITEM-2  is  COMP-1  (paragraph  5. 3. 1.2)  with  a PIC  of 
S9(5)  which  means  ITEM-2  occupies  1 word  of  storage.  ITEM-3 
is  DISPLAY  using  3 bytes  (one  half  word)  of  storage.  This 
means  ITEM-3  ends  in  the  middle  of  a word.  ITEM-4  begins 
following  ITEM-3.  However,  ITEM-4  is  COMP-2  (paragraph 
5. 3. 1.3)  with  a PIC  of  S9(10).  This  requires  that  ITEM-4  begin 
on  a double  word  boundary.  The  compiler  will  skip  the  appro- 
priate number  of  bytes  necessary  so  that  ITEM-»4  can  begin  on 
the  next  double  word  boundary.  See  the  following  diagram  for 
a visual  description  of  TABLE: 


ITEM-1  ITEM-2  ITEM- 3 ITEM-4 


* h 

1 

• 

* ~ 

i , . 

0 1 2 3 4 5 


WORD  # 1 2 3 4 5 6 


The  unused  bytes  in  words  3 and  4 are  fillers.  The  compiler 
provided  these  bytes  to  force  ITEM-4  to  begin  on  a double  word 
boundary.  Unless  the  programmer  is  familiar  with  the  manner 
in  which  the  compiler  works,  the  programmer  will  be  unaware 
of  these  extra  bytes. 

5. 3. 3. 3. 5 Honeywell  FORTRAN  Alignment.  FORTRAN  data  are 
aligned  as  described  in  paragraph  5.3.2.  In  an  array,  each 
element  is  aligned  on  the  same  type  of  boundary.  FORTRAN  does 
not. allow  group  items  as  COBOL  does.  Because  of  this  fact 
extra  bytes  do  not  present  the  problem  in  FORTRAN  as  they  do 
in  COBOL . 
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5. 3. 3.4  Language  Interfacing.  Interfacing  FORTRAN  and  COBOL 
presents  some  problems.  Some  of  the  more  common  problems, 
and  their  solutions,  are  discussed  below. 

5. 3. 3. 4.1  Padding.  Just  as  it  is  necessary  for  the  compiler 
to  insert  fillers  (paragraph  5.3. 3.3.4)  for  proper  word 
boundary  alignment  in  internal  storage,  it  may  be  necessary 
for  the  programmer  to  insert  fillers  in  the  data  structure 
for  proper  alignment.  This  becomes  increasingly  necessary 
when  interfacing  two  languages  such  as  FORTRAN  and  COBOL. 

Again  it  is  very  important  for  the  programmer  to  realize  where 
data  alignment  will  occur. 

For  example,  assume  a COBOL  program  is  to  pass  a group 
item  to  FORTRAN.  This  group  item  consists  of  VALUE-1  and 
VALUE-2,  each  PIC  X ( 6 ) . If  the  FORTRAN  routine  is  to  receive 
the  COBOL  values  in  a two  element  array,  with  the  first  ele- 
ment of  the  array  containing  VALUE-1,  and  the  second  element 
containing  VALUE-2,  then  the  following  would  be  correct: 

COBOL : 

01  TABLE . 

03  VALUE-1  PIC  X (6)  . 

03  VALUE-2  PIC  X (6)  . 


CALL  FORTSB  USING  TABLE. 


FORTRAN: 

SUBROUTINE  FORTSB  (ITEM) 
DIMENSION  ITEM (2). 


The  reason  this  would  be  valid  is  because  the  COBOL  01  level 
begins  on  a doubleword  boundary.  This  means  VALUE-1  begins 
on  a doubleword  boundary.  VALUE-1  is  DISPLAY,  containing  6 
characters  (bytes)  and  is,  therefore,  one  full-word  in  length, 
VALUE-2  begins  immediately  following  VALUE-1.  This  means 
VALUE-2  begins  on  a full-word  boundary.  Storage  looks  as 
follows: 


JE-1  VALUE-2 


0 


The  FORTRAN  routine  has  ITEM  dimensioned  to  2.  Each 
element  of  ITEM  (by  default)  is  1 word  in  length,  beginning 
on  a full-word  boundary.  The  FORTRAN  storage  appears  as: 
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ITEM ( 1 ) ITEM (2) 


The  COBOL  storage  begins  on  a double-word  boundary;  the 
FORTRAN  on  a full-word.  Since  a doubleword  boundary  is 
also  a full-word  boundary,  the  FORTRAN  representation  is 
compatible  with  the  COBOL.  The  six  characters  of  VALUE-1 
will  be  in  ITEM(l),  the  6 in  VALUE-2  will  be  in  ITEM(2) . 

Now,  assume  that  the  items  in  the  COBOL  program  only  con- 
tain 5 characters.  The  COBOL  would  appear  as: 

01  TABLE. 

03  VALUE-1  PIC  XXXXX. 

03  VALUE-2  PIC  XXXXX. 


CALL  FORTSB  USING  TABLE. 

TABLE  would  still  begin  on  a double-word  boundary.  However, 
VALUE-1  and  VALUE-2  would  each  contain  5 bytes,  and  be  stored 
sequentially  as: 


VALUE -1  VALUE -2 


1 — 

* pp 

0 1 


Notice  the  first  byte  of  VALUE-2  appears  as  the  last  byte  in 
word  1.  When  FORTRAN  is  called  only  the  address  of  the  begin- 
ning of  TABLE  (address  0 in  this  case)  is  passed.  FORTRAN 
‘goes  to  this  address  and  assumes  storage  is  as  FORTRAN  expects 
it  (as  described  above) . 

If  VALUE-1  contained  the  characters  ABCDE,  and  VALUE-2 
the  characters  FGHIJ,  after  the  call  to  FORTRAN  ITEM(l)  would 
contain  the  characters  ABCDEF  and  ITEM-2  would  contain  GHIJJrftf, 
where  W may  be  blanks,  or  garbage  characters. 

In  order  for  FORTRAN  for  receive  the  data  properly  (i.e., 
ITEM(l)  containing  ABCDE  and  ITEM (2)  containing  FGHIJ)  padding 
in  the  form  of  a FILLER  must  be  used.  One  word  of  storage 
contains  6 bytes,  or  6 characters.  VALUE-1  and  VALUE-2  contain 
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5 characters  each.  A FILLER  of  one  character  is  necessary 
to  complete  the  word.  In  addition,  this  FILLER  should  have 
a value  of  a blank  in  order  to  insure  no  garbage  data  is 
introduced.  The  following  would  be  acceptable  in  the  COBOL 
program: 

01  TABLE. 

03  VALUE-1  PIC  XXXXX. 

03  FILLER  PIC  X VALUE  SPACES. 

03  VALUE- 2 PIC  XXXXX. 

03  FILLER  PIC  X VALUE  SPACES. 

The  COBOL  storage  would  be: 


VALUE-1  VALUE-2 


0 Fl  F 


Notice  that  VALUE-2  now  begins  in  the  second  word.  If  the 
FORTRAN  routine  is  now  called  using  this  TABLE,  ITEM(l)  would 
contain  ABCDE,  and  ITEM (2)  FGHIJ. 

5. 3. 3. 4. 2 Passing  Character  Strings.  Passing  a character 
string  between  COBOL  and  FORTRAN  presents  some  unique  problems. 
Paragraph  5. 3. 3. 4.1  used  this  problem  as  an  example;  however, 
the  problem  is  more  complex  than  this  example. 

One  character  requires  one  byte  for  storage.  One  word 
contains  6 bytes  and  can,  therefore,  hold  a maximum  of  6 
characters. 

Recall  any  COBOL  data  item  which  does  not  have  a USAGE  of 
COMP,  COMP-1,  COMP-2,  COMP-3,  or  COMP-4  will  automatically  be 
considered  DISPLAY  (paragraph  5. 3. 1.6).  USAGE  DISPLAY  means 
the  data  is  stored  as  character  information. 

To  demonstrate  the  number  of  words  required  assume  the 
following : 

01  ITEM-1  PIC  X (3) . 

01  ITEM-2  PIC  X(7) . 

ITEM-1  would  require  3 bytes  of  storage  since  PIC  X ( 3 ) defines 
three  characters  of  data.  ITEM-2  contains  7 characters.  This 
would  require  7 bytes  of  storage;  one  full-word  plus  one 
additional  byte. 
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Honeywell  FORTRAN  contains  a CHARACTER  data  type  state- 
ment which  is  equivalent  to  the  COBOL  DISPLAY  (see  Figure  5-1). 
This  informs  the  compiler  that  character  data  will  be  stored 
in  the  FORTRAN  data  element.  In  addition,  it  specifies  the 
number  of  characters  per  element  (see  paragraph  5. 3. 2. 4). 

When  passing  character  strings  from  Honeywell  COBOL  to 
Honeywell  FORTRAN,  or  from  FORTRAN  to  COBOL,  the  programmer 
must  insure  that  word  boundaries  and  string  length  are  compa- 
tible in  both  languages. 

For  example,  if  a 9 character  string  in  FORTRAN  is  to  be 
passed  to  a COBOL  subroutine  then  the  following  would  be  valid 
in  FORTRAN: 

CHARACTER* 9 ITEM 
CALL  COBSUB  (ITEM) 


The  COBOL  subroutine  COBSUB  would  have  to  define  the  receiving 
data  item  to  begin  on  a full-word  boundary,  with  a length  of  9 
characters  (minimum) . The  following  would  be  one  way  to 
accomplish  this: 


01  COBOL- ITEM  PIC  X(9). 


PROCEDURE  DIVISION  USING  COBOL-ITEM. 

Multi-dimensional  character  arrays  (see  attachment  8 for 
an  example)  present  some  additional  problems.  (See  paragraph 
6.5.5  for  an  additional  discussion  of  multi-dimensional  char- 
acter arrays) . Each  element  of  the  COBOL  array  is  considered 
to  have  the  number  of  characters  defined  in  the  PIC  clause. 

In  FORTRAN  each  element  contains  the  number  of  characters  speci- 
fied on  the  CHARACTER  statement.  For  example,  in  COBOL: 

01  ARRAY. 

03  CHARS  PIC  XXX  OCCURS  4 TIMES, 
each  element  of  ARRAY  has  3 characters.  In  FORTRAN 
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DIMENSION  LIST (4) 

CHARACTER* 3 LIST 

each  element  of  LIST  contains  3 characters. 

A problem  arises  in  the  different  manner  in  which  COBOL 
and  FORTRAN  interpret  their  size  specifications.  To  explain 
this  difference,  assume  ARRAY  and  LIST  are  still  defined  as 
above. 

COBOL  views  ARRAY  AS: 

CHARS  12  3 4 


—1 

^ Fp  * 

i 

0 1 


ARRAY  begins  at  address  0,  and  continues  for  12  bytes  (char- 
acters). CHARS  (1)  is  in  the  left  half  of  the  first  word, 

CHARS  (2)  is  in  the  right  half  of  word  1,  etc.  COBOL  views 
characters  as  a string,  disregarding  intervening  word  boundaries, 
regardless  of  how  many  characters  are  defined  in  the  PIC  clause. 

FORTRAN  views  the  storage  in  a different  manner.  If  the 
size  defined  in  the  CHARACTER  statement  is  6 or  less,  each 
element  begins  on  a full-word  boundary.  However,  only  the  num- 
ber of  bytes  defined  in  the  size  statement  are  used  in  each 
word.  For  LIST,  storage  would  appear  as: 

LIST 


Notice  that  FORTRAN  uses  4^  words,  COBOL  uses  2 words. 

If  the  CHARACTER  statement  defines  more  than  6 characters 
(bytes) , FORTRAN  uses  this  as  the  number  -of  bytes  per  element. 
Again,  if  the  character  string  of  an  element  does  not  end  on 
a full-word  boundary  the  remaining  bytes  in  the  word  are  ignored. 

In  order  for  COBOL  to  pass  data  to  FORTRAN,  or  FORTRAN  to 
COBOL,  the  COBOL  data  must  be  defined  (by  use  of  fillers)  to 
match  the  FORTRAN  data. 

in  order  to  pass  CHARS  (1)  to  LIST  (1),  CHARS  (2)  to  LIST 
(2) , etc,  the  COBOL  would  need  to  be  padded  as  follows: 
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01  ARRAY . 

05  ITEM  OCCURS  4 TIMES, 

05  CHARS  PIC  XXX, 

03  FILLER  PIC  XXX. 

5. 3. 3. 4. 3 Passing  Arrays.  Arrays  may  be  passed  between 
COBOL  and  FORTRAN,  and  FORTRAN  and  COBOL.  One  dimensional 
arrays  (e.g.,  arrays  of  length  n)  do  not  pose  as  many  problems 
as  multi-dimensional  arrays. 


As  with  all  items  being  passed  between  languages  word 
alignment  and  length  must  be  the  same  in  both  languages.  For 
example , assume  the  following  double  precision  one  dimensional 
array  (length  5)  in  FORTRAN  is  to  be  passed  to  COBOL: 


DOUBLE  PRECISION  A 
DIMENSION  A (5) 

CALL  COBSUB  (A) 


. 


Each  element  of  A is  two  words  in  length,  aligned  on  a double 
word  boundary  (paragraph  5. 3. 2. 2).  In  addition  A contains  5 
elements.  The  corresponding  Honeywell  COBOL  data  type  is 
COMP-2  (Figure  5-2) . The  COBOL  could  contain 

01  ITEM. 

03  NUMBERS  PIC  S9(10)  COMP-2  OCCURS  5 TIMES. 


PROCEDURE  DIVISION  USING  ITEM. 

t 


ITEM  begins  on  a double  word  boundary  (paragraph  5. 3. 3. 3.1). 
Each  element  is  two  words  in  length  (paragraph  5. 3. 1.3)  and 
there  are  5 elements.  The  FORTRAN  CALL  statement  would  cor- 
rectly pass  the  FORTRAN  array  A into  the  COBOL  table  (array) 
ITEM.  A (1)  would  be  stored  in  NUMBERS  (1),  A (2) , in  NUMBERS 
(2) , etc. 

Passing  a two  dimensional  array  between  FORTRAN  and  COBOL, 
or  COBOL  and  FORTRAN  has  an  additional  factor  of  which  the  pro- 
grammer must  be  aware.  A FORTRAN  column  is  a COBOL  row,  and 
a FORTRAN  row  is  a COBOL  column. 

Attachment  3 contains  an  IBM  example  of  this  problem.  (The 
problem  is  the  same  in  IBM  as  Honeywell) . The  FORTRAN  driver 
defines  I as  a 3 x 4 array.  This  array  is  passed  to  the  COBOL 
subroutine  COBSUB.  COBSUB  contains: 


i 


* -«-A*  .... 
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01  ARRAY -TABLE. 

03  MATRIX  OCCURS  4 TIMES. 

05  COLUMNS  PIC  9(6)  COMP  OCCURS  3 TIMES. 

This  defines  the  COBOL  ARRAY-TABLE  as  a 4 x 3 array. 

— 

In  a 3 dimensional  array  the  first  and  last  dimensions  are 
reversed. 


5. 3. 3. 4. 4 Passing  COBOL  Group  Items.  COBOL  has  the  capability 
to  define  an  item  (group  item)  which  is  in  turn  divided  into 
other  items.  These  subdivisions  may  have  different  PICs  and 
USAGES.  For  example: 

01  GROUP- ITEM. 

03  ITEM-1  PIC  S9 (5)  COMP-1. 

03  ITEM-2  PIC  XXXXXX. 

03  ITEM-3  PIC  S9 (10)  COMP-2. 

GROUP- ITEM  is  the  name  of  the  group  item.  This  group  item  is 
subdivided  into  ITEM-1  (integer,  full-word) , ITEM-2  (character, 
full -word ) , and  ITEM-3  (floating  point  double  precision,  double 
word) . 

FORTRAN  does  not  have  the  equivalent  to  a group- item.  Each 
element  in  a FORTRAN  data  item  is  assumed  by  the  compiler  to  be 
of  the  same  data  type.  For  example,  if  the  above  COBOL  example 
calls  a FORTRAN  subroutine  using 

CALL  FORT  USING  GROUP-ITEM, 
and  the  FORTRAN  subroutine  is  as  follows: 

SUBROUTINE  FORT  (ARRAY) 

DIMENSION  ARRAY (4) 

ARRAY  is  a floating  point  data  item  containing  4 elements. 
After  the  CALL,  ARRAY (1)  would  contain  ITEM-1,  ARRAY (2)  ITEM-2. 
ARRAY (3)  and  ARRAY (4)  would  contain  the  two  words  found  in 
ITEM-3.  The  number  in  ARRAY (1)  would  be  in  fixed  point  repre- 
sentation; however  FORTRAN  would  assume  the  number  represented 
was  in  floating  point.  ARRAY (2 ) would  contain  the  character 
string  found  in  ITEM-2;  FORTRAN  would  again  assume  the  represen- 
tation was  floating.  ARRAY (3)  would  contain  the  first  half  of 
a double  word  floating  point  number.  FORTRAN  would  assume  this 
is  a single  word  floating  point  number.  ARRAY (4)  would  contain 
the  second  word  of  the  doubleword  ITEM-3.  Again,  FORTRAN  would 
assume  this  is  a floating-point  number. 


...  . 
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In  many  cases  it  is  possible  to  pass  data  in  this  manner 
and  handle  the  FORTRAN  data  correctly.  This  process  is 
lengthy,  and  confusing.  Because  of  this  an  alternate  method 
of  passing  group  items  is  encouraged. 

If  GROUP-ITEM  is  again  defined  as  above  the  following  CALL 
could  be  used: 

CALL  F0RT2  USING  ITEM-1,  ITEM-2,  ITEM-3. 

The  FORTRAN  routine  would  now  appear  as: 

SUBROUTINE  (I,  A,  B) 

CHARACTER* 6 A 
DOUBLE  PRECISION  B 

ITEM-1  (integer,  single  word)  would  be  passed  to  I (integer, 
single  word),  ITEM-2  (character,  single  word)  to  A (character, 
single  word),  and  ITEM-3  (floating  point,  double-word)  to  B 
(floating  point,  double-word) . (6,  7,  10) 

5.4  Honeywell  FORTRAN/COBOL.  Figure  5-1  lists  the  Honeywell 
COBOL  data  types,  and  their  equivalent  Honeywell  FORTRAN  types. 
Figure  5-2  lists  the  Honeywell  FORTRAN  data  types  and  their 
equivalent  Honeywell  COBOL  data  types. 

5 . 5 IBM  FORTRAN/ COBOL . Figure  5-3  lists  the  IBM  COBOL  data 

types,  and  their  equivalent  IBM  FORTRAN  types.  Fiaure  5-4  lists 
the  IBM  FORTRAN  data  types  and  their  equivalent  IBM  COBOL 
data  types. 

5.6  IBM/Honeywell  Equivalents.  Despite  the  multitude  of  dif- 
ferences between  languages  and  computers,  there  are  elements  of 
each  language  which  will  transfer  from  one  machine  to  the  other 
without  modification.  These  elements  (verbs  and  statements) 
hold  the  same  meaning,  structure,  and  use  on  both  the  IBM  and 
Honeywell  machines. 

5.6.1  COBOL.  The  following  list  contains  the  COBOL  verbs 
found  to  be  equivalent  between  the  Honeywell  and  IBM  machines. 


ACCEPT 

. DISPLAY 

MERGE 

SEARCH 

ADD 

DIVIDE 

MOVE 

SET 

ALTER 

EXIT 

MULTIPLY 

SORT 

CALL 

GENERATE 

OPEN 

STOP 

COPY 

GO  TO 

PERFORM 

SUBTRACT 

CLOSE 

IF 

READ 

TERMINATE 

COMPUTE 

INITIATE 

RELEASE 

WRITE 
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5.6.2  FORTRAN . The  following  list  contains  the  FORTRAN  state*- 
ments  found  to  be  equivalent  between  the  Honeywell  and  IBM 
machines.  (6,  7,  10 , 12,  14,  15,  16,  17) 


ASSIGN  DATA 

BACKSPACE  DIMENSION 

BLOCK  DATA  DO 

CALL  DOUBLE  PRECISION 

COMMON  END 

COMPLEX  ENDFILE 

CONTINUE  ENTRY 


EQUIVALENCE  INTEGER  REAL 

EXTERNAL  LOGICAL  RETURN 

FORMAT  NAMELIST  REWIND 

FUNCTION  PAUSE  STOP 

GO  TO  PRINT  SUBROUTINE 

IF  PUNCH  WRITE 

IMPLICIT  READ 


I 


1 

I 


# OF  COBOL  # OF 

ALIGNMENT  WORDS  . EQUIVALENT  ALIGNMENT  WORDS 


HONEYWELL  ALIGNMENT  WORDS  IBM  ALIGNMENT  WORDS 


# OF  # OF 

ALIGNMENT  WORDS  HONEYWELL  ALIGNMENT  WORDS 


SECTION  6 . LINKAGE 


6.1  Introduction.  In  order  for  two  languages  to  execute 
together  as  a single  program  certain  changes  must  be  made 
to  the  subprograms.  These  changes  vary  between  the  IBM  and 
Honeywell  computers,  and  language  to  language.  Each  com- 
puter and  language  will  be  considered  separately. 

6.2  Honeywell  COBOL  Program  Linkage.  The  linkage  of  a 
COBOL  driver  and  COBOL  subroutine  on  the  Honeywell  machine 
can  be  accomplished  in  two  ways.  The  first  is  the  overlay 
and  is  the  most  complex.  The  second  is  through  the  use  of 
the  CALL  statement. 

6.2.1  Link  Overlay.  Because  of  program  size  and  complexity, 
it  may  be  necessary  to  segment  a program  to  make  more  effi- 
cient use  of  memory  and  available  storage  media.  In  this 
situation,  a large  program  may  be  broken  into  smaller  seg- 
ments, called  "LINKS".  Those  links  used  most  often  are 
organized  such  that  they  will  reside  in  memory  and  the  lesser 
used  links  are  temporarily  overlayed  (in  memory)  when  required 
by  the  driver  or  "main  link".  (4:  7-1) 

Because  the  link  overlay  concept  involves  segmenting  a 
single , large  program  and  not  necessarily  linking  separate 
programs,  it  is  not  within  the  scope  of  this  report.  Further 
details  on  the  link  overlay  concept  may  be  obtained  from  the 
Honeywell  COBOL  User's  Guide. 

6.2.2  The  Call  Statement.  The  CALL  statement  is  normally 
used  in  a main  or  driver  program  to  access  one  or  more  other 
programs,  or  subroutines  to  perform  some  activity  and  return 
to  the  calling  program.  While  this  is  generally  the  case,  a 
subroutine  may  call  another  subroutine,  which  may  call  still 
another,  and’ so  on.  The  general  form  of  a COBOL  CALL  state- 
ment is: 


CALL  name. 


where  name  is  the  PROGRAM-ID  of  the  subroutine.  When  the  CALL 
statement  is  executed,  control  is  transferred  to  the  called  sub- 
routine. When  the  subroutine  has  completed  its  processing, 
control  is  returned  to  the  calling  program  by  the  EXIT  state- 
nent.  The  EXIT  must  follow  a paragraph  name  and  would  appear 
like  this: 


SUBROUTINE- EXIT. 

EXIT  SUBROUTINE-NAME. 

6.2.3  Arguments.  It  is  often  necessary  for  the  called  rou- 
tine to  use  some  data  found  in  the  main  program.  Through  the 
use  of  the  USING  clause  in  the  CALL  statement,  these  data 
items,  called  "ARGUMENTS" may  be  passed  to  the  called  routine 
in  the  following  manner: 


CALL  name  USING  ZAP,  BIFF, 


POW. 


The  addresses  of  ZAP,  BIFF,  and  POW  are  passed  to  the  subrou- 
tine  and  not  their  actual  values.  Hence,  instead  of  actually 
passing  the  data,  the  using  clause  tells  the  subroutine  where 
to  find  that  data  and  the  subroutine  now  has  access  to  them. 

6.2.4  Receiving  the  Arguments.  While  it  is  important  to  send 
(pass)  information  to  a subroutine  properly,  it  is  equally 
important  it  be  received  properly.  In  a COBOL  subroutine,  the 
"receptacle"  is  the  PROCEDURE  DIVISION  header,  in  this  form: 


PROCEDURE  DIVISION  USING  ZAP,  BIFF,  POW. 


where  ZAP,  BIFF,  and  POW  have  been  defined  in  the  WORKING- 
STORAGE  SECTION  of  the  subroutine.  These  variables  now  con- 
tain relevant  data  and  may  be  used  in  the  subroutine  in  all 
the  same  ways  as  in  the  main  program. 

It  would  be  useful  to  point  out  when  arguments  are  passed 
to  another  program,  the  subprogram  is  not  required  to  utilize 
the  same  variable  names.  Because  the  USING  clause  only  passes 
the  addresses  of  the  arguments,  the  programmer  may  find  it 
useful  to  use  other  variable  names  in  the  subroutine.  For 
example,  if  the  main  program  used  ZAP,  BIFF,  and  SOC  to  repre- 
sent the  sine,  cosine,  and  tangent  of  some  angle,  and  these 
values  were  to  be  used  in  a subroutine,  the  sending  and 
receiving  could  appear  thus: 
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(MAIN) 


CALL  name  USING  ZAP,  BIFF,  SOC. 


(SUBROUTINE)  name 


PROCEDURE  DIVISION  USING  SIGN,  COSIGN,  TANGERINE. 

where  the  values  of  ZAP,  BIFF,  and  SOC  are  called  SIGN,  COSIGN, 
and  TANGERINE  in  the  subroutine.  However,  this  convention 
may  be  more  useful  when  interfacing  different  languages,  which 
is  addressed  elsewhere  in  this  report.  It  is  also  important 
to  insure  the  number  of  arguments  recieved  match  the  number  of 
arguments  being  passed.  In  the  example  above,  three  arguments 
are  passed,  and  three  are  received.  (See  paragraph  6. 3. 2. 2) 

6.2.5  Tables  and  Arrays.  For  all  practical  purposes,  a table 
and  an  array  are  the  same  thing:  called  a table  in  COBOL  pro- 
grams, a similar  arrangement  of  data  items  in  a FORTRAN  program 
is  called  an  array. 

6. 2. 5.1  Basic  Definitions.  An  array  is  composed  of  elementary 
data  items  having  identical  data  descriptions. 

A table  may  be  composed  of  both  elementary  and  group  items 
having  differing  data  descriptions.  (7;  2-6) 

6. 2. 5. 2 Passing  a Table.  Tables  and  arrays  may  be  used  as 
arguments  and  passed  back  and  forth  between  COBOL  and  FORTRAN 
routines.  However,  when  passing  a table  or  an  array  to  a rou- 
tine of  a different  language  (COBOL  to  FORTRAN,  for  example) 
the  intrinsic  characteristics  of  the  two  languages  involved 
come  into  play.  See  Section  6.5.5  and  Section  8 for  an  example. 

6.2.6  Entry  at  Other  Than  PROGRAM-ID.  When  calling  a subrou- 

tine,  the  implied  entry  point  into  the  subroutine  is  its’ 
PROGRAM-ID,  and  processing  continues  through  the  end  of  the 
subroutine.  However,  if  a subroutine  is  designed  to  accomplish 
many  activities,  the  programmer  may  not  wish  all  of  them  to  be 
processed  each  time  the  subroutine  is  executed.  Instead,  only 
one  or  two  of  those  activities  may  be  desired.  Therefore,  it 
would  be  advantageous  if  one  could  enter  a subroutine  at  the 
point  where  processing  of  the  desired  activity  begins.  This 
may  be  accomplished  by  using  the  ENTRY  POINT  phrase.  The  sec- 
tion of  code  to  be  executed  in  the  subroutine  must  be  identified 
with  an  explicit  beginning  (entry-name)  and  ending  (EXIT) . The 
call  statement  in  the  main  routine  will  call  this  entry-name 
(instead  of  PROGRAM- ID) . (8;  15-15) 


6-3 


* 

In  Figure  6-1  which  follows,  there  are  three 
examples  of  the  CALL/ENTRY  POINT  phrase.  The  second  CALL 
is  to  JOB403.  This  is  the  simplist  format.  The  ENTRY 
phrase  may  also  be  written  (optional)  "ENTRY  POINT  IS  JOB403". 
In  the  third  example,  the  using  clause  is  added  and  all  the 
rules  regarding  its  use  apply,  as  described  above  in  6.2.3 
and  6.2.4.  In  the  first  example,  the  call  is  to  JOB205. 

Notice  the  range  of  JOB205  includes  JOB403  and  JOB601.  This 
illustrates  the  uniqueness  of  the  EXIT  statement.  Control 
will  not  be  returned  to  the  calling  program  until  the  pro- 
cessing encounters  an  exit  statement  specifying  the  entry-name 
where  processing  began.  Therefore,  when  the  processing  for 
JOB205  is  begun,  it  will  continue  through  JOB403  and  JOB601 
until  EXIT-205,  and  EXIT  JOB205  is  found.  More  details  may 
be  found  in  the  Honeywell  COBOL  Users  Guide,  Section  XV,  and 
the  Honeywell  COBOL  Reference  Manual,  Section  VII  (CALL, 

ENTER,  and  EXIT) . 

6.2.7  Linkage  Section.  COBOL  subroutines  run  on  the  Honey- 
well  machine  do  not  require  the  use  of  a "LINKAGE  SECTION"  as 
on  the  IBM  machine.  However,  if  one  i£  present  in  the  program, 
the  Honeywell  will  accept  it.  See  paragraph  6. 3. 2.1. 

6.3  IBM  COBOL  Program  Linkage.  Following  is  a discussion  of 
the  IBM  COBOL  Program  Linkage. 

6.3.1  CALL  Statement ♦ COBOL  can  invoke  the  execution  of  a 
subroutine  by  use  of the  CALL  statement . The  program  contain- 
ing the  call  statement  is  the  "calling"  program;  the  program 
being  called  is  the  "called"  program.  The  IBM  COBOL  CALL 
statement  has  the  format: 

■ 

CALL  'ident'  USING  var-1,  var-2,... 

where  ident  is  the  PROGRAM- ID  of  the  subprogram  or  an  ENTRY 
name  in  the  subprogram  (ENTRY  is  more  fully  discussed  in  para- 
graph 6.3.3).  Var-1,  var-2...are  the  names  of  the  data  items 
being  passed  to  the  subprogram.  Each  of  these  data  items  must 
be  defined  in  the  calling  routine  before  the  call.  If  no 
data  items  are  necessary  the  CALL  statement  is  reduced  to 

CALL  ’ident'. 

Upon  completion  of  the  called  routine,  control  is  returned  to 
the  line  following  the  CALL  statement  in  the  calling  program. 
The  ident  portion  of  the  CALL  statement  may  also  be  a variable 
name.  Before  the  call  statement  is  executed,  the  name  of  a 
valid  subroutine  must  be  stored  into  this  variable. 
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(MAIN) 

CALL  Job205. 

m 

CALL  Job403. 

CALL  Job601  using  one,  two,  three. 

(SUBROUTINE) 

ENTRY  Job205. 

ENTRY  Job403 . 

EXIT- 40 3. 

EXIT  Job403. 

ENTRY  Job601  using  Alpha,  Delta,  Fox. 


EXIT-601. 

EXIT  Job  601. 

EXIT-205. 

EXIT  Job205. 


I 

For  example,  if  the  following  statement  appeared  in  the  calling 
routine 

MOVE  1 SUBROUTN ' TO  VARIABLE-NAME. 

the  subroutine  SUBROUTN  could  be  called  in  the  following 
manner 

CALL  VARIABLE-NAME  USING... 

(Note  the  variable  name  is  not  enclosed  in  quotes) . 

This  would  have  the  same  effect  as 
CALL  'SUBROUTN'  USING... 

See  Attachment  1 for  an  example  of  the  CALL  statement. 

6.3.2  Subroutine  (Called  Program).  The  subroutine  or  called 
program  appears  as  a normal  IBM  COBOL  program,  with  some  minor 
variations.  These  are  discussed  below.  See  Attachment  1 for 
a COBOL  subroutine  example. 

6. 3. 2.1  Linkage  Section.  If  data  is  to  be  passed  to  the  sub- 
routine  througn  the  CALL  statement  on  the  IBM  computer,  the 
called  program  must  contain  a LINKAGE  SECTION.  (See  Attachment 
1 for  an  example).  If  no  data  items  are  passed  to  the  called 
program  the  LINKAGE  SECTION  may  be  omitted  (see  Attachment  4). 

The  LINKAGE  SECTION  describes  the  data  items  which  will  be 
received  from  the  calling  program.  The  data  items  are 
described  in  the  subroutine  in  the  same  manner  as  in  the 
WORKING-STORAGE  of  the  DRIVER,  except  no  VALUE  clause  may  be 
used.  The  data  descriptions  in  the  called  program  should  match 
the  data  descriptions  in  the  calling  program.  The  LINKAGE 
SECTION  must  follow  the  WORKING-STORAGE  SECTION  if  the  WORKING- 
STORAGE  SECTION  is  used.  If  the  WORKING-STORAGE  SECTION  is  not 
used  the  LINKAGE  SECTION  must  follow  the  FILE  SECTION.  If  no 
FILE  SECTION  is  present  the  LINKAGE  SECTION  follows  the  DATA 
DIVISION  statement. 

6. 3. 2. 2 PROCEDURE  DIVISION  Clause.  The  PROCEDURE  DIVISION 
clause  of  the  called  program  is  modified  to  appear  as: 

PROCEDURE  DIVISION  USING  var-1 , var-2... 

where  var-1,  var-2... are  the  names  of  the  data  items  being 
passed  to  the  called  program.  (See  Attachment  1 for  an 
example).  If  no  data  items  are  being  passed  to  the  subroutine, 
the  USING  var-1,  var-2...  clause  is  omitted.  The  order  of  the 
data  items  is  important.  The  data  items  in  the  CALL  statement 
are  associated  on  a one-to-one  basis  with  the  data  items  in 
the  PROCEDURE  DIVISION  clause,  not  by  data  item  name.  Since 
the  association  is  by  data  item  order,  and  not  by  name,  dif- 
ferent names  may  be  used  for  the  same  data  item  in  each  routine. 

For  example  if  the  statement  CALL  'SUB'  USING  A,  B,  C appeared 
in  the  calling  program,  and  program  SUB  contained  PROCEDURE 
DIVISION  USING  X,  Y,  Z,  in  the  called  program  X would  have  the 
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value  of  A in  the  calling  routine,  Y would  have  the  value 
of  B,  and  Z the  value  of  C.  Execution  of  the  subroutine 
begins  with  the  statement  following  the  PROCEDURE  DIVISION 
line,  and  continues  through  the  first  EXIT,  STOP  or  GOBACK. 
Control  is  then  returned  to  the  calling  routine  on  the  line 
following  the  CALL  statement. 

6.3.3  ENTRY  Statement.  An  alternate  entry  point  to  a sub- 
routine  may  be  defined  by  use  of  an  ENTRY  statement.  The 
ENTRY  statement  has  the  form 

ENTRY  ' subname ' USING  var-1,  var-2 , . . . 

If  no  data  items  are  being  passed  the  form  becomes 

ENTRY  ' subname ' . 

This  statement  appears  within  the  actual  PROCEDURE  DIVISION. 
The  ' subname 1 clause  may  be  replaced  by  a variable  name.  If 
the  following  appears  within  the  PROCEDURE  DIVISION: 

MOVE  'ENTRYNAM'  TO  VARIABLE-NAME. 

the  ENTRY  statement 

ENTRY  VARIABLE-NAME. . . 

I 

would  have  the  same  effect  as 
ENTRY  ' ENTRYNAM ' . . . 

(Note  the  variable  name  is  not  enclosed  in  quotes) . This 
allows  the  flexibility  of  assigning  different  ENTRY  names  to 
the  same  section  of  code  during  program  execution.  The  CALL 
statement  in  the  calling  routine  is  the  same  as  that  used  for 
the  PROCEDURE  DIVISION  call  (paragraph  6.3.1).  Execution  of 
the  subroutine  begins  on  the  line  following  the  ENTRY  state- 
ment. For  example: 

IDENTIFICATION  DIVISION. 

PROGRAM- ID.  SUBROUTN. 


DATA  DIVISION. 
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WORKING-STORAGE  SECTION. 


LINKAGE  SECTION. 

01  VAR-1  PIC  S9V99. 
01  VAR-2  PIC  S9V99 . 


PROCEDURE  DIVISION  USING  VAR-1 , VAR-2. 


GOBACK. 

ENTRY  ' ENTRY2 ' USING  VAR-1 , VAR-2. 


GOBACK. 


In  this  subroutine  example  both  the  PROCEDURE  DIVISION  entry 
point  and  the  ENTRY  entry  point  are  used.  A call  in  the 
calling  program  of 

CALL  ' SUBROUTN ' USING  A,  B. 

would  pass  the  value  of  A and  B to  SUBROUTN.  Execution  would 
begin  on  the  line  following  PROCEDURE  DIVISION  and  continue 
through  the  first  GOBACK.  A 

CALL  ' ENTRY 2 ' USING  A,  B. 

would  also  pass  the  values  of  A and  B to  the  subroutine;  how- 
ever, execution  would  begin  on  the  line  following  the  ENTRY 2 
statement  and  continue  through  the  second  GOBACK.  (12,  14,  16) 

6.4  FORTRAN  Linkage.  The  execution  of  a FORTRAN  subroutine 
or  function  requires  certain  changes  be  made  to  the  program. 
These  changes  are  the  same  on  both  the  IBM  and  Honeywell  com- 
puter and  are  discussed  below. 

6.4.1  Subroutine s . A subroutine  is  a subprogram  used  to 
calculate  commonly  used  computations.  A discussion  of  subrou- 
tines follows. 
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6. 4. 1.1  SUBROUTINE  Statement.  Each  subroutine  begins  with  a 
SUBROUTINE  statement  of  the  form 

SUBROUTINE  sname  (varl,  var2, . . . ,varN) 

where  sname  is  the  subroutine  name,  and  varl,  var2 , . . . , varN 
represent  variable  or  array  names , or  the  dummy  name  of 
another  SUBROUTINE  or  FUNCTION.  Varl,  var2,...varN  serve  as 
both  inputs  and  outputs  to  the  subroutine.  For  example,  in 
the  program 

SUBROUTINE  PROG  (A,  B,  C,  D) 

C=A+B+C 

D=A+C 


The  variables  A and  B serve  as  inputs.  C is  both  an  input  and 
an  output  since  the  value  of  C is  used  in  a calculation  and  is 
also  to  the  left  of  an  assignment  operator  (=) . The  original 
value  of  C would  be  passed  to  the  subroutine,  added  to  A and  B, 
and  the  result  stored  in  C.  Upon  completion  of  the  subroutine 
the  changed  value  of  C will  be  returned  to  the  calling  program. 

D serves  only  as  an  output  since  it  appears  only  on  the  left 
of  an  assignment  operator.  A and  B are  only  inputs  since  they 
appear  only  to  the  right  of  an  assignment  operator. 

6. 4. 1.1.1  Data  Element  Declarations.  Data  elements  being 
passed  to  a subroutine  should  match  the  data  element  types  in 
the  subroutine.  If  the  default  attributes  of  the  variables 
in  a subroutine  do  not  match  the  attributes  of  the  variable 
being  passed  the  subroutine  variables  must  be  declared  in  the 
subroutine  by  use  of  DIMENSION,  DOUBLE  PRECISION,  etc.  These 
statements  must  be  the  first  ones  in  the  subroutine.  For 
example,  if  the  calling  routine  is  passing  the  double  precision 
value  A to  the  subroutine,  and  the  subroutine  statement  is 

SUBROUTINE  SUB  (Z) 

then  following  the  SUBROUTINE  statement  should  be 

DOUBLE  PRECISION  Z 

to  insure  the  data  element  will  be  represented  within  the  sub- 
routine in  the  same  manner  as  the  representation  in  the  calling 
program.  If  A had  not  been  double  precision,  the  default 
attribute  for  Z would  match  those  of  A and  no  additional  state- 
ments would  be  necessary.  If  no  inputs  or  outputs  are  necessary, 
varl,  var2,...varN  may  be  omitted. 


6. 4. 1.1. 2 Passing  Functions  or  Subroutines.  In  addition  to 
passing  variables  to  a subroutine,  functions  (see  paragraph 
6.4.2)  or  other  subroutines  may  be  passed.  If  subroutine  A 
is  defined  as 

SUBROUTINE  A (X,  Y,  Z) 
subroutine  B as, 

SUBROUTINE  B (Q,  E,  C,  D) 

and  is  called  (see  paragraph  6. 3. 1.2)  by  CALL  B (A,  E,  E,  D) 
then  the  subroutine  A is  passed  into  subroutine  B.  If  B 
contains  the  line  CALL  Q (E,  C,  D) , the  subroutine  A (which  is 
represented  by  Q in  B)  would  actually  be  called. 

6. 4. 1.1. 3 RETURN  and  END  Statements.  Each  subroutine  should 
contain  one  or  more  RETURN  statements.  When  a RETURN  state- 
ment is  encountered  in  the  logical  execution  of  the  subroutine 
control  is  returned  to  the  calling  program  at  the  line  follow- 
ing the  CALL  statement.  For  example  if  the  subroutine  contained 
the  statements: 


IF  (A  .EQ.  B)  RETURN 


RETURN 


and  A did  in  fact  equal  B then  the  subroutine  would  terminate 
at  the  first  RETURN.  If  A did  not  equal  B execution  would  con- 
tinue until  the  second  RETURN  statement.  The  last  physical 
statement  of  the  subroutine  must  be  an  END  statement. 

6 . 4 . 1 . 2 CALL  Statement . A CALL  statement  is  used  to  execute 
a subroutine.  It  has  the  form 

CALL  sname  (varl,  var2 , . . . , varN) 

where  sname  is  the  name  of  the  subroutine  being  called,  and 
varl,  var2,...varN  are  the  input/output  variables,  or  SUBROUTINE 
or  FUNCTION  names.  If  the  subroutine  requires  no  inputs  or 
outputs  then  the  form  of  the  call  becomes 

CALL  sname. 
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Upon  termination  of  the  subroutine  execution  continues  at  the 
line  following  the  CALL. 

6.4.2  Functions.  A FORTRAN  function  is  an  independent  pro- 
gram  which  is  executed  each  time  its  name  is  encountered. 
Following  is  a description. 

6. 4.2.1  FUNCTION  Statement.  A function  returns  one  value  to 
the  calling  routine.  A function  begins  with  the  statement 

FUNCTION  fname*S  (varl,  var2 , . . . , varN) 

where  fname  is  the  FUNCTION  name,  *S  (which  is  optional)  is  a 
length  specification,  and  varl,  var2 , . . . , varN  are  variable  or 
array  names,  SUBROUTINE  or  other  FUNCTION  names.  The  value 
which  is  returned  is  fname.  The  function  must  contain  fname 
to  the  left  of  an  assignment  operator.  For  example 

FUNCTION  A (B,  C,  D) 

A=B+C+D 
RETURN 
END 

would  take  the  input  values  B,  C,  and  D,  add  them  together  and 
return  the  result  as  A.  If  the  default  attributes  for  the 
function  name  (which  are  the  same  default  attributes  as  a 
variable  of  the  same  name)  are  to  be  changed  the  calling  pro- 
gram would  have  a declare  statement  (INTEGER,  REAL,  etc)  for 
the  function  name.  This  declare  would  be  identical  to  the 
declare  for  variables.  For  example,  if  function  CALC  was  to 
return  a double  precision  result,  the  calling  program  would 
contain  the  following  declare 

DOUBLE  PRECISION  CALC 

The  FUNCTION  statement  would  be  altered  to  agree  with  the 
declaration  as  follows: 

DOUBLE  PRECISION  FUNCTION  CALC  (X,  Y,  Z) 

If  the  value  .to  be  returned  from  the  function  INT  was  to  be 
INTEGER* 2 , then  INT  would  be  declared  as 

INTEGER* 2 INT 

in  the  calling  routine.  The  function  line  would  then  become 
INTEGER  FUNCTION  INT*2  (A,  B) 

6. 4. 2. 2 RETURN  and  END  Statements.  The  rules  for  RETURN  and 
END  statements  for  a function  are  identical  to  those  of  a sub- 
routine (see  paragraph  6. 4. 1.1. 3). 
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6. 4. 2. 3 Initiating  a Function.  A function  is  initiated  in 
the  calling  program  whenever  the  function  name  is  encountered. 
For  example,  if  the  calling  program  contained 

Z - A (X,  Y,  P) 

and  function  A was 

FUNCTION  A (B,  C,  D) 

A = B+C-D 

RETURN 

END 

then  X+Y-P  would  be  calculated  and  stored  in  Z.  If  the  calling 
program  contained 

Z = 12 . 0/A (X, Y,P) 

and  the  function  A is  the  same  as  the  one  above,  then  Z would 
contain  the  result  of  12 .0/ (x+Y-P) . (10,  15,  17) 

6.5  Honeywell  COBOL/FORTRAN  Linkage.  The  linkage  of  COBOL 
and  FORTRAN  in  the  same  program  is  not  difficult  if  done  with 
great  care  and  attention  to  detail. 

6.5.1  Job  Control  Language.  The  programmer  must  keep  in  mind 
when  compiling  two  languages  for  the  same  execution,  concessions 
must  be  made  to  allow  peaceful  co-existance  and  smooth  execu- 
tion. The  Job  Control  Language  (JCL)  performs  most  of  these 
functions  and  will  be  addressed  in  detail  in  Section  7. 

6.5.2  Basic  Structure.  When  linking  COBOL  and  FORTRAN  the 
rules  are  the  same  as  when  a COBOL  driver  calls  a COBOL  subrou- 
tine or  a FORTRAN  driver  calls  a FORTRAN  subroutine.  The  CALL 
statements  (with  arguments)  are  as  follows: 

(COBOL) 


or 


CALL  name  USING  X, 


V, 


Z. 


(FORTRAN)  CALL  name  (X,  Y,  Z) 


The  CALL  statements  are  very  much  alike,  but  in  the  subrou- 
tine the  arguments  are  received  in  different  places.  The 
COBOL  subroutine  receives  the  data  in  its  PROCEDURE  DIVISION 
header: 


PROCEDURE  DIVISION  USING  X,  Y,  Z. 


where  as,  in  the  FORTRAN  subroutine  the  data  is  received 
in  the  first  line,  with  the  routine's  name: 


SUBROUTINE  name  (X,  Y,  Z) 


A COBOL  main  program  calling  a FORTRAN  subroutine  would 
appear : 


(COBOL  PROGRAM) 


CALL  name  USING  X,  Y,  Z. 


(FORTRAN  PROGRAM) 
SUBROUTINE  name  (X,  Y,  Z) 


A FORTRAN  main  calling  a COBOL  subroutine; 


(FORTRAN  PROGRAM) 
CALL  name  (A,  B,  C) 


(COBOL  PROGRAM) 


PROCEDURE  DIVISION  USING  A,  B,  C. 
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6.5.3  Data  Representation.  It  is  imperative  that  data  used 
in  both  the  main  program  and  subroutine  be  represented  the  same 
way  in  each.  If  ZAP  is  defined  in  Honeywell  COBOL  as  COMP-1, 
then  it  should  be  defined  as  INTEGER  in  FORTRAN,  because  they 
mean  the  same  thing  (see  Section  5). 

If  the  definition  of  a data  item  (an  argument)  in  a COBOL 
program  does  not  match  the  corresponding  definition  of  the  data 
item  in  the  FORTRAN  program,  the  machine  will  not  flag  it  as  an 
error. 

At  compile  time,  the  COBOL  and  FORTRAN  programs  will  be  com- 
piled by  their  respective  compilers.  Because  the  two  programs 
are  compiled  separately,  no  comparison  is  made  and  the  machine 
is  not  aware  of  any  difference  of  definitions. 

It  is  at  execution  time  that  dissimilar  data  definitions 
can  become  a problem.  For  example,  if  variable  CASH  is  defined 
in  a CO^OL  program  as  COMP,  the  compiler  allocates  one  36-bit, 
binary  word  in  a floating-point  format.  The  first  eight  bits 
represent  the  exponent,  and  the  other  28  are  available  for  the 
mantissa.  Only  the  compiler  considers  the  word  to  be  in  two, 
distinct  parts,  such  as  Figure  6-2: 


-EXP  *±  MANTISSA 

0 7 

35 

Compiler  view  of  a floating  point 

number 

FIGURE  6-2 

> 

In  memory,  the  actual  appearance 

of  this  word  is 

0 

35 

Actual  view  of  any  word 

FIGURE  6-3 
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Meanwhile,  in  the  FORTRAN  subroutine,  CASH  has  inadvertantly 
been  coded  as  an  INTEGER.  During  compilation  of  the  subroutine, 
the  FORTRAN  compiler  recognizes  CASH  will  be  passed  to  it  for 
use  as  an  integer:  a fixed-point  number,  appearing  in  the  same 
manner  as  Figure  6-3  above . 

During  execution,  each  time  the  COBOL  program  must  use  CASH, 
it  will  apply  the  floating-point  format. 

However,  when  the  FORTRAN  routine  is  called  it  will  access 
CASH,  as  required,  as  an  integer  and  apply  the  fixed-point  for- 
mat. This  is  where  the  problem  begins.  The  FORTRAN  routine 
reads  all  36-bits  as  a single,  binary  whole  number,  and  not  a 
floating-point  number.  One  can  see  how  distorted  the  value  of 
CASH  can  become , by  applying  a fixed-point  format  to  a floating- 
point number.  Further  details  may  be  found  in  Section  4 of 
this  report. 

6.5.4  The  Interface.  When  interfacing  COBOL  and  FORTRAN,  on 
the  Honeywell,  attention  to  record  length  is  mandatory.  When  a 
record  created  in  COBOL  is  rewritten  from  FORTRAN,  one  computer 
word  (6  bytes)  is  added  to  it.  This  added  word  contains  a 
SLEWING  character  for  carriage  control  (output) . Notice  the 
following  example: 


. (COBOL  Program) 

FD  TSTFYL  label  records  standard. 
01  TEST-FILE  PIC  X(36). 


WORKING-STORAGE  SECTION. 
01  REKORD. 


03 

FILLER 

PIC 

X 

VALUE 

SPACE. 

03 

PART-1 

PIC 

9(3) 

VALUE 

010. 

03 

FILLER 

PIC 

X ( 5) 

VALUE 

SPACE. 

03 

PART- 2 

PIC 

9(3) 

VALUE 

020. 

03 

FILLER 

PIC 

X ( 5) 

VALUE 

SPACE. 

03 

PART- 3 

PIC 

9(3) 

VALUE 

030. 

03 

FILLER 

PIC 

X (5) 

VALUE 

SPACE. 

03 

PART- 4 

PIC 

9(3) 

VALUE 

040. 

(Also  see  Attachment  5) . 


The  number  of  bytes  in  the  record  "REKORD"  is  28.  Because 
the  machine  works  in  terms  of  six-byte  words , this  record  will 
take  a minimum  of  five  words  (30  bytes) . 
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Then,  if  the  file  is  rewritten  in  FORTRAN,  the  slew  word  is 
added.  The  word  length  is  now  six  words  or  36  bytes.  When  control 
is  returned  to  the  COBOL  driver  any  attempt  to  read  this  record 
will  cause  an  abort  if  the  file  description  does  not  provide  for 
the  increased  record  length.  In  the  example  above,  if  TEST-FILE 
had  a picture  of  only  28  characters,  the  record  length  would  exceed 
the  file  description  and  the  processing  would  stop  with  an  execu- 
tion activity  error. 

6. 5.4.1  The  Taming  of  the  Slew.  The  programmer  can  circumvent  the 
potential  problem  of  the  extra  carriage  control  word  in  a number  of 
ways.  The  first  and  simplest  way  is  not  to  write  in  FORTRAN  when 
interfacing  COBOL  with  FORTRAN.  However,  because  this  may  not  be 
the  best  way  to  accomplish  the  task  at  hand,  other  methods  are  sug- 
gested. Job  Control  Language  provides  the  first  alternative.  The 
"NO  SLEW"  option  on  the  $ FFILE  JCL  card  prevents  automatic  slewing. 
What  alternatives  are  provided  by  the  code  itself?  In  example  6.5.4 
above,  the  file  description  is  modified.  TSTFYL  is  increased  by  the 
length  of  one  computer  word.  The  programmer  may  wish  to  increase 
the  size  of  the  actual  description  of  the  record  in  the  WORKING- 
STORAGE  SECTION  as  well,  leaving  six  bytes  of  empty  space  at  the  end 
of  the  record.  Here,  caution  is  advised.  Unless  specifically  told 
otherwise,  FORTRAN  will  work  in  terms  of  WORDS,  not  bytes  and  can 
mutilate  ones'  data  beyond  recognition. 

6. 5. 4. 2 Padding.  If  the  record  ends  at  a word  boundary,  adding  a 
FILLER  (for  the  extra  word)  still  ends  the  record  at  a word  boundary. 
When  the  record  is  used  in  the  FORTRAN  program,  it  will  remain 
intact  through  the  FORTRAN  output.  Knowledge  of  how  this  data  is 
stored  is  of  great  help  in  understanding  what  happens  to  it  through 
the  course  of  an  execution.  See  the  File  Section  of  CARAYF  in 
Attachment  6.  The  record  to  be  read  is  set  up  as  six  characters, 
instead  of  five,  thus,  making  each  record  one  computer  word  in 
length. 

6.5.5  A FORTRAN  Alternative.  When  a problem  occurs  while  interfac- 
ing  two  languages,  such  as  COBOL  and  FORTRAN,  it  can  usually  be 
solved  by  adjusting  one  of  the  two  routines.  In  the  previous 
example,  the  COBOL  program  was  modified  to  solve  the  problem 
(Attachment  6,  File  Section).  But  what  if  parts  of  the  COBOL  pro- 
gram cannot  be  adjusted?  The  next  logical  step  is  to  change  the 
FORTRAN  program. 

To  state  a new  example,  suppose  a COBOL  program  was  to  pass  a 
table  to  a FORTRAN  subroutine.  It  is  a two-dimensional  table  of 
three  rows  and  three  columns,  consisting  of  nine  elements,  each 
five  characters  long  (alphabetic  data)  (Attachment  8,  File  Section). 

The  character  array  being  passed  is  seen  by  the  FORTRAN  subrou- 
tine as  a string  of  45  contiguous  characters.  The  problem  is 
breaking  down  the  string  of  characters  into  their  proper  elemental 
lengths.  The  FORTRAN  language  on  the  Honeywell  machine  provides 
this  capability  with  the  DECODE  statement.  Its  general  form  is: 
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DECODE  (a, t)  list 


(See  Attachment  8) 


where  t is  the  FORMAT  information  describing  the  manner  in 
which  the  decoding  will  occur;  a is  the  item  to  be  decoded; 
and  list  is  the  variable (s)  into  which  the  decoded  a is  to 
be  stored.  (10;  4-20) 

NOTE:  Numeric  data  is  passed  on  a word  for  word  basis  and 

presents  much  less  of  a problem,  as  long  as  the  data  items 
are  represented  in  both  programs  in  the  same  way. 

The  DECODE  statement  in  Attachment  8 is ; 

DECODE  ( JARRAY , 110)  ( ( I ARRAY ( I , J) , J=1 , 3 ) ,1=1,3) 

110  FORMAT  (9A5) 

where  a is  JARRAY  (what  is  to  be  decoded)  and  t is  format 
110,  how  is  it  to  be  separated.  The  list  is  another  array 
where  the  decoded  (separated)  elements  will  be  stored,  fol- 
lowed by  the  structure  of  IARRAY : three  rows  across  and 
three  columns  down. 

Figure  6-4  shows  how  the  FORTRAN  output  is  affected  by 
the  automatic  slewing  without  the  DECODE  statement.  (See  pg  A72) 

Additional  comments  on  handling  tables/arrays  between 
COBOL  and  FORTRAN  programs  can  be  found  in  Section  8 of  this 
report . 

6.6  IBM  COBOL/FORTRAN  Linkage.  The  interface  between  COBOL/ 
FORTRAN  progrmas,  and  FORTRAN/COBOL  programs  is  very  similar 
to  the  interfaces  between  COBOL/COBOL  and  FORTRAN/FORTRAN. 

6.6.1  COBOL  Calling  FORTRAN.  The  CALL  statement  in  a COBOL 
program  calling  a FORTRAN  subprogram  remains  the  same  as 
described  in  paragraph  6.3.  The  SUBROUTINE  statement  in 
FORTRAN  remains  the  same  as  described  in  paragraph  6. 4. 1.1. 

Care  should  be  exercised  to  insure  word  boundaries  (paragraph 
4.2)  and  data  types  (paragraph  5.5)  are  consistent  between  the 
COBOL  and  the  FORTRAN.  Also,  the  JCL  must  be  modified  to 
accommodate  two  languages  (see  paragraph  7.3). 

6.6.2  FORTRAN  Calling  COBOL.  The  CALL  statement  in  a FORTRAN 
program  calling  a COBOL  subprogram  remains  the  same  as 
described  in  paragraph  6.4.  The  COBOL  subroutine  would  remain 
the  same  as  described  in  paragraph  6.3.2.  Care  should  be  exer- 
cised to  insure  word  boundaries  (paragraph  4.2)  and  data  types 
(paragraph  5.5)  are  consistent  between  the  FORTRAN  and  COBOL. 
Also,  the  JCL  must  be  modified  to  accommodate  two  languages 


(paragraph  7.3). 


SECTION  7.  JOB  CONTROL  LANGUAGE 


7.1  Introduction.  Each  program  submitted  to  the  computer 
must  contain  certain  Job  Control  Language  (JCL)  statements. 
These  JCL  statements  give  the  computer  information  necessary 
to  exeucte  the  program.  This  information  includes  such 
items  as  the  language  in  which  the  subroutines  or  programs 
are  written,  identification  of  files  necessary  for  execution, 
location  of  card  data  input,  etc.  The  JCL  for  the  IBM  machine 
and  the  Honeywell  machine  is  quite  different  and  not  inter- 
changeable. The  complexities  and  variations  of  each  JCL  are 
great  and  beyond  the  scope  of  this  manual.  Detailed  explana- 
tions of  each  machine's  JCL  is  contained  in  the  appropriate 
machine's  Job  Control  Language  Reference  Manual.  Following 

is  a brief  description  of  the  JCL  necessary  to  link  different 
languages  together  for  execution  as  a single  program. 

7 .2  IBM  JCL.  Before  two  different  languages  can  be  executed 
in  one  program  each  language  must  be  compiled  separately,  then 
linked  and  executed. 

7.2.1  Program  Compilation.  One  language  of  the  mixed  lan- 
guage  program  must  be  compiled  first.  The  language  which  is 
compiled  first  is  unimportant;  however,  if  the  main  or  driver 
program  is  not  compiled  first  some  additional  control  cards 
are  necessary  in  the  execute  portion  of  the  job  (see  paragraph 
7.2.3).  To  compile  the  program  use  FTG1C  for  FORTRAN  or 
VSCOBC  for  COBOL.  For  example,  to  compile  the  FORTRAN  por- 
tion use: 

//  EXEC  FTG1C 

//FORT. SYS IN  DD  * 

Following  the  second  card  would  be  the  FORTRAN  deck. 

7.2.2  Program  Execution.  After  one  language  is  compiled, 
the  second  language  may be  compiled  and  the  program  executed . 
To  compile  and  execute  use  FTG1CLG  for  FORTRAN  or  VSCOBCLG 
for  COBOL.  For  example,  to  compile  the  COBOL  portion  of  a 
FORTRAN/COBOL  program,  and  to  execute  the  entire  program 

use : 

//  EXEC  VSCOBCLG 

//COE. SYS IN  DD  * 

• 

Following  the  second  card  would  be  the  COBOL  deck.  This 
example  assumes  the  FORTRAN  portion  of  the  deck  was  compiled 
first  using  FTG1C  and  is  the  driver.  (If  the  first  routine 
compiled  using  FTG1C  or  VSCOBC  is  not  the  driver,  see  para- 
graph 7.2.3).  A typical  deck  setup  with  COBOL  as  the  driver 
and  a FORTRAN  subroutine  would  be  as  follows  (see  also 
Attachment  3)  : 
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//  EXEC  VSCOBC 

//COB. SYS IN  DD  * 

COBOL  program 
//  EXEC  FTG1CLG 

/ /FORT . SYSIN  DD  * 

FORTRAN  program 


7.2.3  ENTRY  Statement . If  the  first  program  compiled  (using 
FTG1C  or  VSCOBC)  is  not  the  driver,  an  ENTRY  card  must  be 
included  to  specify  which  subroutine  is  to  be  the  driver  (see 
Attachment  4).  To  accomplish  this,  two  additional  cards  are 
necessary.  Following  the  last  program  deck  (compiled  using 
FTG1CLG  or  VSCOBCLG) , a 

//LKED.SYSIN  DD  * 

card  must  be  inserted.  Following  this  would  be  an 
ENTRY  driver 

card  where  driver  is  the  name  of  the  main  program  (the  sub- 
routine name  for  FORTRAN  or  PROGRAM- ID  for  COBOL) . The 
ENTRY  card  does  not  start  with  //  and  must  not  begin  in  column 
1.  For  example,  assume  a COBOL/FORTRAN  program  is  to  be  exe- 
cuted. If  the  FORTRAN  program  (called  FORTSB)  is  the  driver 
and  was  compiled  second  using  FTG1CLG , then  the  deck  would 
appear  as: 

//  EXEC  VSCOIC 

//COB. SYS IN  DD  * 

(COBOL  routine) 

//  EXEC  FTG1CLG 

//FORT. SYSIN  DD  * 

(FORTRAN  routine) 

//LKED.SYSIN  DD  * 

ENTRY  FORTSB 


If  a COBOL/FORTRAN  program  with  the  COBOL  routine  (PROGRAM- ID 
COBSUB)  is  the  driver,  and  is  compiled  second  using  VSCOBCLG, 
then  the  deck  would  be: 
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//  EXEC  FTG1C 

//FORT. SYS IN  DD  * 

(FORTRAN  routine) 
//  EXEC  VSCOBCLG 

//COB. SYS IN  DD  * 

(COBOL  routine) 
//LKED.SYSIN  DD  * 

ENTRY  COBSUB 


7.2.4  Additional  IBM  JCL . Since  the  first  subroutine  or 
program  is  compiled  using  FTG1C  or  VSCOBC,  normal  default 
JCL  files  are  unavailable  for  use  during  execution  for  this 
language.  If  the  FORTRAN  routine  is  compiled  first  the 
following  cards  must  be  inserted  after  the  COBOL  deck  (see 
Attachment  4)  (if  no  ENTRY  caxd  is  used)  or  after  the  ENTRY 
card  (if  the  ENTRY  card  is  used) : 

//GO.FT05F0JJ1  DD  * 

(input  card  data) 

//GO.FTJJfiJ5001  DD  SYSOUT=A  (printer  file) 

//GO.FT07F0JJ1  DD  SYSOUT=B  (punch  file) 

If  the  COBOL  routine  is  compile  first  then  the  following  cards 
must  be  inserted  after  the  FORTRAN  deck  (if  no  ENTRY  card  is 
used)  or  after  the  ENTRY  card  (if  the  ENTRY  card  is  used) (13) : 

//GO . SYSDBOUT  DD  SYSOUT=A 
//GO . SYSOUT  DD  SYSOUT=A 

7.3  Honeywell  (JCL). 

The  JCL  used  by  the  Honeywell  is  unique,  as  all  of  its 
statements  have  this  structure: 

$ INSTRUCTION  OPTIONS/PARAMETERS 

18  16 

The  only  exception  to  this  uniqueness  is  ***EOF.  This  caxd 
uses  card  columns  1-6  and  is  the  last  card  in  the  (batch)  deck, 
signifying  the  physical  end  of  the  job;  hopper  empty  status. 

The  JCL  discussed  here  will  be  those  statements  used  to 
successfully  execute  the  test  programs  in  Attachments  5 thru  8 . 

Because  many  of  the  JCL  statements  are  duplicated,  there 
is  no  point  in  discussing  them  more  than  once.  However,  if 
the  use  or  meaning  of  a statement  should  change  from  one  pro- 
gram to  the  next,  it  will  be  discussed  again  with  reference  to 
the  change  or  new  meaning. 


i-u-  1^®"  Contro1  Card  format  specifies  options,  it  mo»r\a 
the  programmer  may  select  system  options  to  get  additional 
information  output  about  the  program,  it  also  means  if  no 
options  are  selected,  the  programmer  wishes  only  the  standard 
default  options.  They  are  underlined  in  the  control  ctX 

T„T  It  iS  *ssumed  the  programmer  will  supply  the  first  throe 
JCL  cards  for  ALL  batch  jobs  and  understfndi  theirmelninJs 
They  are  1)  SNUMB,  2)  IDENT,  and  3)  USERID.  MuSh  of  Se  di^ 

CarlfSIfe^nS^nSa^^d^^61106  t0  the  Hone^e11  Control 

fault  cells  and  control  words.  It  establishes  where  in 
the  program  will  be  loaded  and  releases  unused  portions  of 

££££  t0  thB  MChine-  ThlB  « • »■•<»!  SofLTSIbSgging 

OPTION.  The  next  card  is  the  $ OPTION  FORTRAN  card 
IT  alters  the  standard  General  Loader  options  during  loadSo' 
TtStfi?n  °£tj-°n8  specified.  Here,  the  FORTRAN  option  is  used 
General  Loader  there  is  a FORTRAN  program  follow- 
ing and  to  set  all  options  required  for  loading  it. 

7^3$_ENTRY  When  two  or  more  programs  are  to  be  executed 
tne  flrst  Program  in  the  deck  will  be  considered 
the  main  program  or  driver.  If  the  driver  is  not  the  first 
program  in  the  deck,  the  $ ENTRY  option  card  is  added  to  the 
JCL  preceding  the  execution  activity.  This  card  tells  the 
machine  which  program  is  the  main  program  and  to  enter  it 

°P^n  is  the  na”e  of  the  main  pr^am  or 
the  symdef.  The  symdef  is  the  first  four  characters  of  the 

program  name , preceded  by  (C . ) . Attachments  5 and  6 illustrate 
these  two  uses  of  the  option.  illustrate 

■?V3:4 — $ FORTY  (FORTRAN)  . Either  the  $ FORTY  or  the  $ FORTRAN 
statement  may  he  used  to  call  the  FORTRAN  compiler.  There  are 
many  options  available,  most  of  which  contribute  to  debugging. 

The  $ COBOL  card  calls  the  COBOL  compiler, 
and  like  the  $ FORTRAN  card,  allows  the  programmer  to  spe^ifv 

isSDECK  °NDECKSis  S-IfT Tb?CaU??  ^ ******  def*“lt  O^ion 
is  u«.k,  NDECK  is  specified  in  all  test  programs  used  in  this 

dlSftn  J ^option  DECK  requests  a binary  object  program  *cLd) 

tinn  fae  Punched  as  output.  The  EISF  option  forces  compil^  ’ 

putr?f 

th^asaembled  £ out^’t  T*0”  ,tV“  * °£ 
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7.3.6  $ EXECUTE.  To  execute  programs,  the  $ EXECUTE  card  is 
required . It  must  follow  all  programs,  but  precede  their  data. 
The  option  field  is  used  to  set  sense  switches  on  or  off,  and 
specify  options.  Attachment  8 specifies  DUMP.  This  option 
will,  if  the  activity  terminates  abnormally,  give  the  slave 
core  dump,  program  registers,  upper  SSA,  and  slave  program 
prefix . 

7.3.7  $ LIMITS.  Occassionally , a job  will  attempt  to  go 
beyond  normal- system  limits  placed  on  storage,  CPU  time,  lines 
printed,  or  I/O  time.  Any  or  all  of  these  may  be  increased  by 
using  the  $ LIMITS  card.  Used  in  Attachment  5,  the  first  comma 
means  an  increase  in  CPU  time  is  not  required.  The  24K  is 

the  maximum  memory  requested  for  running  the  program.  The  -4K 
increases  the  amount  of  salve  core. 

7.3.8  $ FILE.  The  $ FILE  cards  identify  the  files  used  by 
the  program (s) . AB  is  a file  code  given  in  the  COBOL  pro- 
gram, and  0 8 is  the  file  code  given  the  same  file  in  the 
FORTRAN  program.  The  A1  is  a Loqical  Unit  Desianator  (LUD), 
used  to  name  a file  for  later  use.  The  S indicates  the  file 
is  to  be  saved. 

7.3.9  $ SYSOUT.  Output  from  all  test  programs  herein  is  to 
the  system  printer.  The  $ SYSOUT  cards  select  OT  for  printer 
output  from  the  COBOL  program,  and  06  for  printer  output  from 
the  FORTRAN  program. 

7.3.10  $ DATA.  When  submitting  programs  which  include  input 
in  the  form  of  cards,  the  $ DATA  is  used.  In  Attachment  6, 
the  COBOL  main  program  selects  the  input  file  CARDIN  and 
assigns  the  letters  Cl  for  cards  to  identify  the  card  reader. 
The  variable  field  in  the  $ DATA  card  includes  this  file 
code , thus : 

$ DATA  Cl 

The  machine  now  knows  the  COBOL  program  will  read  cards  from 
the  device  known  as  Cl  and  the  data  to  be  read  follows  the 
$ DATA  card. 


7.3.11  $ ENDJOB. 


execution. 


The  $ ENDJOB  is  the  last  card  of  every  job. 
the  job  being  processed  is  a candidate  for 
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SECTION  8.  ADDITIONAL  TECHNIQUES 


8.1  Introduction.  In  this  Section,  a few  follow-up  techniques 
are  discussed  that  have  been  discovered  in  the  research,  but 
not  included  previously  since  they  did  not  directly  apply. 

They  represent  additional  information  and  techniques  for  con- 
sideration by  programmers  planning  to  interface  COBOL’ and 
FORTRAN  in  the  same  program. 


/ 

8.2  Passing  a Table  from  COBOL  to  FORTRAN:  Subscripts:  In 
addition  to  the  problems  mentioned  earlier  regarding  the  pass- 
ing of  a table  from  COBOL  to  FORTRAN,  addressing  a particular 
element  of  the  table  can  also  be  a nightmare.  Because  the 
tables/arrays  are  built  differently  in  each  language,  their 
subscripts  are  also  different.  Put  more  simply,  the  sub- 
scripts that  identify  a specific  element  in  the  COBOL  program 
will  not  correspond  with  the  subscripts  (of  the  same  element) 
in  the  FORTRAN  program  after  the  table  has  been  passed.  For 
example,  COBOL  creates  the  following  nine  element,  two  dimen- 
sional table,  row  by  column: 


in  the  FORTRAN  program.  When  the  table  is  passed,  FORTRAN 
puts  it  into  array  form.  However,  because  FORTRAN  builds 
arrays  column  by  row,  the  table  above  is  rebuilt  and  now 
appears  thus: 


COLUMN 


123  ROW 


where  the  subscripts  of  each  element  are  shown.  Arrow  2 points 
to  the  specific  element  desired,  and  arrow  1 points  to  the  ele- 
ment actually  accessed.  Notice  that  the  subscripts  of  the 
first  element  (1,  1),  the  middle  element  (2,  2),  and  last  ele- 
ment (3,  3),  match  those  of  the  COBOL  table.  If  one's  table  is 
subscripted  as  simply  as  these  two  illustrations,  there  would 
be  no  problem  accessing  the  first,  middle,  and  last  elements. 

But  this  often  is  not  the  case.  It  is  accidental  that  Row  1,  Col- 
umn 1 in  the  COBOL  table  matches  Column  1,  Row  1 in  the  FORTRAN 
array,  and  so  on. 
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As  can  be  seen  by  the  arrows,  addressing  element  (2,  3)  in 
the  FORTRAN  subroutine  will  yield  incorrect  data.  The  machine 
assumes  this  element  is  the  desired  element  and  gives  no  error 
nor  comment.  Providing  there  are  no  other  errors  in  the  pro- 
gram, element  (2,  3)  will  be  processed,  eventually  output,  and 
the  programmer  may  not  even  know  the  output  is  faulty.  This 
is  why  attention  to  subscripts  is  so  important. 

The  solution  to  the  problem  is  simple:  reverse  the  order 
of  the  subscripts.  If  the  data  in  element  (2,  3)  is  the  data 
desired  from  the  COBOL  program,  reversing  the  order  of  the  sub- 
scripts results  in  (3,  2)  in  the  FORTRAN  program.  Notice  the 
position  of  elements  (2,  3)  and  (3,  2).  In  memory,  the  address 
of  element  (2,  3)  is  the  same  address  of  element  (3,  2). 

8.3  Double  Word  Integers.  FORTRAN  ordinarily  has  no  capability 
to  use  double  word  integers.  However,  these  integers  may  be  con- 
verted to  double  precision  floating  point  numbers  in  the  FORTRAN 
program.  Attachment  10  is  a program  that  demonstrates  how  this 
conversion  can  be  made.  The  double  word  integer  may  be  passed  to 
the  FORTRAN  routine  as  an  integer  or  must  be  assigned  to  working 
variables  that  are  equivalenced  to  integers.  The  integer  repre- 
senting the  second  half  of  the  variable  must  be  examined  for  its 
sign.  If  the  number  is  negative  it  must  be  added  to  2. 32  in  the 
IBM  machine  or  2. 36  in  the  Honeywell  machine  and  the  result  stored 
in  a floating  point  variable  which  is  called  B1  in  the  example. 
Then  the  double  precision  real  equivalent  to  the  double  word  inte- 
ger is  formed  by  multiplying  the  first  half  of  the  integer  by  2. 32 
(or  2.36)  and  adding  Bl.  Note  that  in  order  to  insure  precision, 
the  precise  values  of  2. 32  or  2. 36  must  be  used.  2.32=4294967296. 
2.36=68719476736. 

8.4  Reversing  the  Double  Word  Integer  Process.  If  the  double 
word  integer  must  be  passed  back  to  the  COBOL  program,  the  real 
number  must  be  converted  to  a double  word  integer.  This  process 
is  relatively  simple.  Divide  the  double  precision  floating  point 
number  by  2.32  or  2.36.  If  the  double  precision  number  and  the 
quotient  are  negative  subtract  1.  Assign  the  result  to  the  first 
word  of  the  double  integer.  Be  sure  to  make  the  assignment  to 
the  integer  variable.  Multiply  this  integer  by  2.32  (IBM)  or 
2.36  (Honeywell)  and  subtract  the  result  from  the  double  precision 
number.  If  the  result  is  greater  than  2.31  (IBM)  or  2.35 
(Honeywell)  subtract  2.32  or  2.36.  if  the  result  is  less  than 
-2.31  (ibm)  or  -2.35  (Honeywell)  add  2.32  or  2.36.  Store  the 
result  in  the  second  integer.  To  pass  the  result  back  to  the 
calling  routine,  assign  the  real  equivalent  addresses  of  the  inte- 
ger values  to  the  array  or  dummy  arguments. 
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8.5  Packed  Decimals.  FORTRAN  does  not  read  or  perforin  compu- 
tations  with  packed  decimals.  One  of  two  methods  may  be  used 
to  circumvent  this  problem.  The  packed  decimals  may  be  con- 
verted to  computational  items  in  the  COBOL  program  and  the 
computational  items  passed  to  the  FORTRAN  program.  Alternately, 
the  packed  decimals  may  be  written  to  a fixe  in  the  COBOL  pro- 
gram. The  FORTRAN  program  may  then  read  this  file.  The  former 
method  is  recommended. 

8.6  Double  Precision  Floating  Point  Numbers.  If  it  is  neces- 
sary  to  transfer  double  precision  floating  point  numbers  to  a 
FORTRAN  program  through  single  precision  real  variables,  the 
following  procedure  can  be  followed.  Assign  the  passed  varia- 
bles to  a two  word  array  in  the  FORTRAN  program.  Equivalence 
a double  precision  variable  to  this  array.  This  double  pre- 
cision variable  can  then  be  used  as  a double  precision  variable 
equivalent  to  the  COBOL  variable.  To  pass  the  variable  back 

to  COBOL,  assign  the  FORTRAN  array  elements  to  the  passing 
variables.  See  Attachment  11. 

8.7  Passing  Integers  Through  Real  Variables.  If  an  integer 
must  be  passed  through  a real  variable  and  subsequently  used 
in  computation,  the  following  method  can  be  used  to  insure 
typing  problems  are  minimized.  EQUIVALENCE  a real  variable  to 
an  integer.  Assign  the  passing  variable  to  the  real  variable. 
The  integer  may  be  used  in  place  of  the  real  variable.  Attach- 
ment 9 has  an  example  of  this  method.  To  pass  the  integer  back 
to  the  calling  program  through  the  real  number,  assign  the 
equivalenced  real  number  to  the  passing  variable.  Any  other 
simple  way  of  accomplishing  this  task  is  preferable  to  this 
equivalence  method  since  it  is  somewhat  difficult  for  the 
novice  programmer  to  understand. 

8.8  Comparisons.  If  data  items  are  to  be  compared,  they  must 
be  properly  justified  otherwise  a comparison  will  be  meaning- 
less. For  example,  if  CAT#  is  compared  to  #C AT  the  computer 
will  determine  that  the  strings  are  not  equal.  The  data  must 
be  properly  justified  in  the  variable's  field.  Likewise  only 
variables  of  the  same  type  should  be  compared  when  display  or 
character  items  are  involved.  The  programmer  should  also  keep 
in  mind  that  if  data  in  variables  of  different  types  are  com- 
pared, one  of  the  datum  will  be  converted  to  the  other  type. 

For  example,  in  FORTRAN  the  statement 

IF  (A.LT.I)  GO  TO  7 

will  cause  the  computer  to  convert  I to  the  real  floating  point 
equivalent  before  making  a comparison  with  A.  Hence,  if  A and 
I contain  character  items,  the  comparison  will  not  be  valid. 
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8.9  An  Illustration. 


8.9.1  ARRAY 1 . The  program  ARRAY 1 was  written  to  demonstrate 
the  way  the  computer  handles  data  items  and  the  means  of  handling 
strange  combinations  of  items.  This  program  uses  a number  of 
techniques  that  are  not  recommended  if  more  straight  forward 
approaches  are  available.  However,  there  are  circumstances 
in  which  these  techniques  may  be  the  only  way  to  accomplish  a 
task. 


8.9.2  PURPOSE.  This  short  program  demonstrates  some  non- 
trivial data  transfer  problems.  The  COBOL  subprogram,  ARRAY 1 , 
defines  four  items  in  WORKING-STORAGE  at  the  77  level.  The 
first  item  has  a picture  of  X(6)  and  a value  of  "77ITEM". 

The  second  item  has  a picture  of  X(8)  and  a value  of  "2ND  ITEM". 
The  third  item  has  a picture  of  X99X  and  a value  of  "#77Jrf". 

The  last  item  has  a picture  of  9(4)  and  a value  of  7777.  Note 
that  the  first  three  items  are  display,  but  the  last  item  is 
a computation  item  of  the  binary  integer  type.  A table  called 
TABLE-ONE  is  also  defined.  Since  this  table  contains  items  of 
different  types  and  lengths,  it  should  not  be  considered  a 
standard  COBOL  table.  The  first  item  in  the  table  has  a pic- 
ture of  X (6)  and  a value  of  "ARRAY".  ITEM-TWO  has  a PICTURE 
S9(3)  and  a value  of  123.  The  third  item  is  a computational 
signed  integer  of  value  12345.  ITEM-FOUR  has  a PICTURE  of 
S9(6)  V 9(4)  and  is  a binary  decimal  of  value  2468.5.  The  last 
item  is  also  a binary  decimal  with  a value  of  -123.01.  The 
objective  of  this  program  is  to  transfer  these  values  to  the 
FORTRAN  subroutine  FSUB1  which  will  write  the  values  to  SYSOUT. 
As  will  become  apparent  in  the  subsequent  discussion,  this 
transfer  requires  some  non-trivial  considerations. 

8.9.3  THE  HONEYWELL  PROGRAM.  Attachment  9,  Figure  1 is  a 
listing  of  a short  program  that  accomplishes  the  objective. 

Each  item  is  discussed  in  detail  below. 

a.  FIRST-ITEM.  FIRST-ITEM  is  transferred  to  the  FORTRAN 
program  through  the  call.  The  item  identification  in 
the  FORTRAN  program  corresponding  to  FIRST-ITEM  is 
FITEM.  Internal  to  the  computer,  these  two  variables 
correspond  to  the  same  address.  "77 ITEM"  fits  into  one 
computer  word,  hence  there  is  no  problem  with  word 
boundary  crossing.  Since  FIRST-ITEM  is  "display"  in 
COBOL,  it  is  equivalent  to  a "character"  variable  in 
FORTRAN.  This  version  of  the  program  is  written  in 
ANSI  standard  FORTRAN,  which  does  not  use  character 
typing.  Therefore,  the  bits  in  the  address  FITEM  may 
be  treated  as  real  or  integer  variables.  Real  was 
chosen  to  accommodate  a longer  string  of  characters 
with  double  precision.  The  FORTRAN  compiler  considers 
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FITEM  a real  floating  point  number  and,  since  no 
arithmetic  operations  or  comparisons  are  being  done, 
there  is  no  problem.  When  FITEM  is  written  to  SYSOUT, 
it  is  redefined  for  output  as  a character  variable  by 
the  FORMAT  statement  descriptor  "A6".  Hence,  the 
alphanumeric  form  of  the  word  is  printed.  As  far  as 
the  compiler  is  concerned,  FITEM  has  been  redefined 
only  for  output.  If  FITEM  was  used  again  in  the  pro- 
gram, the  compiler  would  consider  FITEM  a real  varia- 
ble. It  would  be  possible  to  compare  FITEM  with 
another  variable  providing  the  other  variable  was 
typed  as  real.  The  programmer  must  keep  these  matters 
in  mind  when  writing  or  maintaining  the  FORTRAN  sub- 
routine because  the  FORTRAN  compiler  will  not  resolve 
these  items . 

b.  SECOND- ITEM.  SECOND-ITEM  is  transferred  to  the  FORTRAN 
program  as  SITEM.  Since  SECOND-ITEM  occupies  two  words, 
SITEM  must  be  defined  as  DOUBLE  PRECISION.  Unfortun- 
ately, double  precision  words  begin  on  even  word  bound- 
aries. SECOND-ITEM  begins  on  an  odd  word  boundary  if 
it  immediately  follows  FIRST-ITEM.  Hence,  a FILLER 
(blank)  word  is  added  after  FIRST-ITEM  to  force  SECOND- 
ITEM  to  an  even  boundary.  If  this  FILLER  was  omitted, 
the  value  "77ITEM2NDJrfIT"  would  be  at  the  location 
SITEM  (at  an  odd  address)  because  the  Honeywell  com- 
puter will  begin  at  the  odd  word  boundary  and  read  the 
next  lower  address  first  (FIRST-ITEM  is  lower  than 
SECOND-ITEM) . The  following  diagrams  should  make  this 
clear: 


WITH  FILLER 


.77ITEMAW*WW* 
Tword  O f WORD  1, 
EVEN  II  ODD 


ADDRES  SBVDDRES  SlADDRES  S 
OF  OF  OF 

FITEM  FILLER  SITEM 
EVEN  ODD  EVEN 


2ND#IT  EMfflW 


WORD  2 
EVEN 


WORD 

ODD 


#77**5* 
WORD  4 
EVEN 


ADDRESS 

OF 

TITEM 

EVEN 


WITHOUT  FILLER 
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c.  THIRD- ITEM.  THIRD-ITEM  is  transferred  to  the  FORTRAN 
subroutine  as  TITEM.  Since  it  occupies  only  one  word 
the  addressing  is  straight  forward.  Although  the 
FORTRAN  program  considers  TITEM  a floating  point  num- 
ber, the  FORMAT  statement  for  the  WRITE  instruction 
instructs  the  compiler  to  write  TITEM  as  an  alphanumeric 
item  which  is  equivalent  to  the  COBOL  DISPLAY  item. 

d.  FOURTH- ITEM.  FOURTH-ITEM  is  the  only  computational  or 
binary  item  in  WORKING -STORAGE.  The  Honeywell  COBOL 
COMP-1  usage  is  a fixed  point  number  which  is  equiva- 
lent to  a FORTRAN  integer.  Hence,  when  the  FORTRAN 
equivalent  to  FOURTH- ITEM  (ITEM4)  is  written,  the  com- 
piler identifies  ITEM4  as  an  integer.  Binary  items 
should  never  have  address  problems  since  the  machine 
should  always  align  these  items  properly  regardless  of 
the  higher  level  language  used. 

e.  ITEM-ONE.  ITEM-ONE  is  the  first  item  of  an  unorthodox 
table  labeled  TABLE-ONE.  It  is  a display  item  that  fits 
into  one  word.  This  item  is  passed  to  the  FORTRAN  pro- 
gram as  the  first  item  in  a FORTRAN  array.  The  FORTRAN 
array  can  be  used  to  transfer  character  strings  as  well 
as  tables.  In  this  example,  only  items  aligned  within 
word  boundaries  are  being  transferred.  The  IBM  equiva- 
lent to  this  program  will  demonstrate  the  problem  of 
processing  character  strings  that  transcend  word  bound- 
aries. Note  that  the  entire  table  is  transferred  using 
one  address.  This  address  is  the  address  of  ITEM-ONE 
which  is  also  the  address  of  TABLE-ONE.  Hence,  for  all 
practical  purposes,  the  variables  ITEM-ONE  and  TABLE-ONE 
are  identical  (see  Attachment  9,  Figures  1 and  2).  In 
the  FORTRAN  program,  ITEM-ONE  is  the  first  item  in  the 
FORTRAN  array  identified  as  ARRAY (1).  Note  that  the 
FORTRAN  program  considers  all  elements  of  the  array  to 
be  floating  point  numbers.  Since  ARRAY (1)  is  written 

by  the  FORTRAN  program  as  an  alphanumeric  item,  the  cor- 
rect representation  is  written.  The  FORTRAN  program  is 
concerned  with  the  type  of  a variable  only  for  computa- 
tion and  comparison.  Hence,  if  this  item  is  to  be 
compared  to  another  variable  in  the  FORTRAN  program,  that 
other  variable  must  be  typed  as  REAL. 

f.  ITEM-TWO.  ITEM-TWO  is  a real  or  floating  point  binary 
number.  It  is  passed  to  the  FORTRAN  program  through  the 
array  item  ARRAY ( 2 ) . Since  the  machine  will  insure  that 
this  number  is  aligned  properly,  there  is  to  address  or 
alignment  problem. 

g.  ITEM-THREE . ITEM-THREE  is  an  integer  or  fixed  point 
number  of one  word  in  length.  The  FORTRAN  program 
identifies  this  item  by  the  variable  ARRAY (3).  Since  the 
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FORTRAN  program  considers  this  variable  a real  or 
floating  point  item,  any  attempt  to  perform  computa- 
tions or  comparisons  will  result  in  an  erroneous 
operation  that  the  computer  will  not  flag  as  such. 
However,  ARRAY (3)  may  be  correctly  written  by  specify- 
ing that  it  is  an  integer  in  the  FORMAT  statement.  If 
computations  or  comparisons  are  to  be  performed  by 
the  FORTRAN  program  with  ITEM-THREE,  the  item  should 
be  passed  separately  through  a variable  that  the 
FORTRAN  program  types  as  an  integer.  Another  way 
around  this  problem  is  to  assign  ARRAY (3)  to  a real 
variable  and  EQUIVALENCE  that  variable  to  an  integer, 
e.g. , 

EQUIVALENCE  (X,  INT) 


X = ARRAY (3) 

Then  the  FORTRAN  program  will  recognize  INT  as  an 
integer  variable  with  the  appropriate  value.  Of  these 
two  "tricks-of-the-trade"  the  former  method  is  much 
less  confusing  to  someone  unfamiliar  with  the  program 
and  is  recommended  for  general  use. 

h.  ITEM-FOUR.  ITEM-FOUR  must  begin  at  an  even  address 
because  it  is  a double  precision  floating  point  number. 
Notice  that  ITEM-THREE  begins  at  an  even  address  (even 
word  boundary) , therefore  one  word  between  the  location 
of  ITEM-THREE  and  ITEM-FOUR  is  not  used.  Hence,  the 
FORTRAN  program  variable  equivalent  to  ITEM-FOUR  is 
ARRAY (5).  ARRAY (4)  is  the  unused  word.  ARRAY (5)  is  not 
recognized  as  double  precision  by  the  FORTRAN  program. 
However  it  can  be  used  as  a single  precision  real  number 
(with  loss  of  precision)  and  written  as  a double  pre- 
cision item.  Note  that  ARRAY ( 6 ) is  the  lower  (least 
significant)  part  of  the  double  precision  mantissa. 

Since  assigning  ARRAY (5)  to  a double  precision  variable  it 
will  lose  ARRAY (6)  and  EQUIVALENCE  cannot  be  used  with 
subroutine  arguments,  the  only  simple  way  to  maintain 
the  precision  of  ITEM-FOUR  is  to  pass  it  as  a separate 
double  precision  number  through  a variable  defined  as 
double  precision  in  the  FORTRAN  subroutine. 

i.  ITEM-FIVE.  ITEM-FIVE  is  a single  precision  floating 
point  item  that  is  recognized  in  the  FORTRAN  program  by 
the  variable  ARRAY (7).  This  item  was  included  to  show 
that  the  double  precision  item  ITEM-FOUR  occupied 
ARRAY (5)  and  ARRAY (6).  Note  that  the  Honeywell  COBOL 
compiler  indicates  the  number  of  words  occupied  by  a 
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COBOL  level  01  group.  This  number  of  words  corresponds 
to  the  DIMENSION  of  the  FORTRAN  array. 


8.9.4  The  IBM  Program.  Attachment  9,  Figure  3 is  a listing  of 
the  ARRAY  1 program  that  is  essentially  equivalent  to  the 
Honeywell  program.  The  differences  between  the  Honeywell  and 
IBM  program  are  due  to  the  way  the  compilers  handle  data  items, 
the  lengths  of  the  machine  words  and  the  IBM  use  of  half  word 
processing.  Each  item  usage  is  detailed  below. 

a.  FIRST- ITEM.  Unlike  the  Honeywell  program,  FIRST-ITEM 
does  not  fit  into  a machine  word  on  the  IBM  machine,  but 
uses  one  word  and  half  of  the  next.  Hence,  the  FORTRAN 
variable  FITEM  must  be  defined  as  DOUBLE  PRECISION.  The 
compiler  aligns  the  first  item  in  a section  on  a double 
word  boundary  (address  divisible  by  8)  which  insures  the 
item  can  be  accessed  properly  by  the  FORTRAN  program. 

b.  SECOND- ITEM.  SECOND-ITEM  begins  immediately  following 
the  location  of  FIRST- ITEM.  This  item  can  be  addressed 
by  the  FORTRAN  produced  program  in  spite  of  the  fact 
that  SECOND- ITEM  is  not  a double  word  boundary  and  the 
FORTRAN  variable  SITEM  is  defined  as  double  precision 
because  the  IBM  360/370  series  of  computers  are  byte 
oriented.  Since  the  address  of  SECOND-ITEM  is  not  on  a 
double  word  boundary,  the  machine  will  align  the  double 
word  length  bit  string  in  another  storage  area  in  the 
machine  before  operating  with  it.  Hence  no  FILLER  is 
necessary  between  FIRST-ITEM  and  SECOND-ITEM.  Boundary 
alignment  is  desireable  however. 

c.  THIRD-ITEM.  Unlike  the  first  two  77  items,  THIRD-ITEM 
fits  into  one  single  word.  Like  these  items,  THIRD-ITEM 
is  properly  passed  to  the  FORTRAN  program  by  the  byte 
addressing  system. 


d.  FOURTH- ITEM.  FOURTH-ITEM  is  a COMP  item.  It  should 

begin  on  a half  word  boundary  (address  that  is  divisible 
by  2).  In  this  case,  it  does  not.  Note  that  the 
Honeywell  equivalent  was  typed  COMP-1.  The  IBM  COMP  is 
a fixed  point  number  like  the  Honeywell  COMP-1.  The 
Honeywell  COMP  is  a floating  point  representation  that 
may  be  treated  as  an  integer.-  The  IBM  FORTRAN  equiva- 
lent to  the  IBM  COBOL  COMP  is  a two  byte  precision 
integer,  INTEGER* 2.  This  FORTRAN  integer  is  ITEM4 . 

Since  the  address  is  not  on  a half  word  boundary, 
FOURTH-ITEM  will  be  passed  inefficiently  to  the  FORTRAN 
produced  program.  Note  that  Honeywell  does  not  use  half 
word  computational  items. 
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e.  ITEM-ONE.  ITEM-ONE  is  the  first  item  of  the  non- 
standard  table  called  TABLE-ONE.  Note  that  either 
TABLE-ONE  or  ITEM-ONE  can  be  used  to  address  the 
table,  Attachment  9,  Figure  4.  Unfortunately  "ARRAY" 
does  not  fit  into  one  word.  Therefore  ARRAY  was 
passed  to  the  FORTRAN  produced  program  through  the 
array  elements  ARRAY (1)  and  ARRAY (2).  Note  that  the 
data  was  written  by  writing  ARRAY (1)  as  alphanumeric 
four  (A4)  and  ARRAY (2)  as  alphanumeric  two  (A2) . The 
"AY"  in  "ARRAY"  is  left  justified  in  ARRAY (2). 

f.  ITEM-TWO.  This  item  demonstrates  some  important  con- 
cepts. A COMP  SYNC  item  with  a picture  of  S9(3)  is 
a half  word  item.  It  should  occupy  the  second  half  of 
ARRAY (2),  but  it  could  not  be  addressed  by  the  FORTRAN 
program  because  the  address  of  the  half  word  is  between 
ARRAY (2)  and  ARRAY (3).  One  solution  to  this  problem 
would  be  to  type  ARRAY  as  a half  word  integer  and 
increase  the  dimension  of  the  FORTRAN  program,  but  this 
solution  would  present  greater  problems  with  the  trans- 
fer of  subsequent  items.  Therefore  ARRAY (2)  is  filled 
with  two  arbitrary  characters  and  zeros  are  placed  in 
the  first  two  characters  of  ARRAY (3)  by  the  COBOL  FILLER 
statements.  This  filling  forces  ITEM-TWO  into  the  last 
two  bytes  of  ARRAY (3).  The  zeros  in  the  first  two  bytes 
permit  ITEM-TWO  to  be  read  by  the  FORTRAN  program  as 
ARRAY ( 3 ) in  the  correct  integer  format.  In  essence  the 
half  word  binary  integer,  ITEM-TWO,  was  converted  to  a 
full  word  binary  integer  ARRAY (3).  There  would  be  a 
problem  using  ARRAY (3)  in  computations  since  it  is  typed, 
by  default,  as  a real  number.  ARRAY  could  be  typed  as 
integer,  but  then  other  items  passed  through  ARRAY  would 
be  considered  integer  by  the  FORTRAN  program.  There- 
fore, either  ITEM-TWO  must  be  passed  separately  for 
computations  or  ARRAY (3)  "transferred"  to  an  integer 
field  as  follows: 

EQUIVALENCE  (X,  I) 


X = ARRAY  (3) 

Then  I may  be  used  in  place  of  ARRAY ( 3 ) , see  listing. 
(Note  that  a variable  cannot  be  equivalenced  to  a dummy 
variable  in  a subroutine  call) . The  latter  solution  to 
this  problem  is  discouraged  because  it  is  a bit  esoteric. 
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g.  ITEM-THREE.  ITEM-THREE  is  a full  word  fixed  point  or 
integer  number  that  is  aligned  on  a full  word  boundary. 

The  address  is  ARRAY (4)  as  should  be  expected.  If 
this  item  is  to  be  used  for  computation  or  comparison, 
it  must  be  passed  separately  or  reassigned  as  described 
in  paragraph  f. 

h.  ITEM-FOUR.  This  item  is  a double  precision  floating 
point  number  or  REAL* 8.  It  begins  at  ARRAY (5)  which 
is  at  an  address  divisible  by  8.  Although  this  number 
can  be  written,  any  arithmetic  or  comparision  would  lose 
precision  because  the  FORTRAN  program  recognizes  ARRAY (5) 
as  a single  precision  number.  The  best  simple  way  to 
maintain  the  precision  is  to  pass  this  item  separately 

as  a double  precision  item. 

i.  ITEM-FIVE.  ITEM-FIVE  is  a single  precision  floating 
point  number.  It  is  on  a full  word  boundary  in  the 
seventh  word  of  the  table  and  hence  has  the  variable 
address:  ARRAY (7)  in  the  FORTRAN  program. 

8.9.5  Implications.  Clearly,  these  simple  programs  present  some 
interesting  problems  with  important  implications.  The  programs 
were  not  easy  to  debug  even  when  the  programmer  knew  the  prob- 
lems would  occur.  It  is  not  possible  to  show  all  the  errors 
that  can  occur  when  these  programs  are  incorrectly  written,  but 
of  great  inporatance  is  the  fact  that  INCONSISTANCIES  BETWEEN 
CORRESPONDING  DATA  ITEMS  OF  DIFFERENT  SUBPROGRAMS  GENERATED  BY 
DIFFERENT  COMPILERS  CAN  CAUSE  ERRONEOUS  DATA  TRANSFERS  THAT  ARE 
SELDOM  DETECTED  BY  THE  COMPUTER.'  The  programmer  must  be  very 
careful  to  insure  the  data  items  are  aligned  properly  in  all 
subprograms  and  that  the  USAGE  or  types  are  also  correct.  The 
following  specifics  are  demonstrated  by  the  programs  ARRAY1. 

a.  DISPLAY  or  CHARACTER  strings  are  stored  in  one  continuous 
string  unless  a computational  synchronized  item  inter- 
venes. 

b.  The  Honeywell  machine  cannot  properly  pass  a DISPLAY  item 
to  a FORTRAN  program  through  a DOUBLE  PRECISION  PROGRAM 
variable  unless  the  COBOL  item  is  aligned  on  a double 
word  boundary.  The  IBM  machine,  since  it  is  byte  ori- 
ented, does  not  have  this  limitation,  but  it  will  handle 
the  transfer  more  efficiently  if  the  data  is  aligned  on 

a double  word  boundary. 

c.  Computational  binary  items  transferred  through  single 
variables  (as  opposed  to  arrays)  should  always  have  the 
boundaries  properly  aligned  on  both  machines.  Efficiency 
is  improved  on  the  IBM  machine  if  computational  items 
are  properly  aligned  (in  COBOL  terms,  the  items  are 
SYNCHRONIZED)  . 
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d.  COBOL  tables  may  be  passed  to  FORTRAN  through  arrays 
using  the  table  and  array  names,  but  alignment  rules 
must  be  carefully  followed  on  both  the  Honeywell  and 
IBM  machines. 

e.  Computational  items  passed  to  FORTRAN  from  COBOL  pro- 
grams, must  be  correctly  identified  to  the  FORTRAN 
program  as  to  usage  or  type.  If  the  type  is  not  cor- 
rect and  cannot  be  changed,  special  techniques  must  be 
used  (see  paragraph  8.9g  and  8.10f). 

f.  Double  precision  floating  point  numbers  passed  through 
an  array  to  a FORTRAN  program  cannot  be  treated  by 
FORTRAN  as  double  precision  number  unless  the  entire 
array  is  typed  double  precision  or  special  techniques 
are  used. 

g.  FILLER  fields  may  be  necessary  in  COBOL  tables  to  pass 
data  in  these  tables  to  FORTRAN  programs  through 
arrays. 

h.  On  the  IBM  machine,  it  may  be  desireable  to  convert  a 
COBOL  half  word  fixed  point  number  to  a full  word 
FORTRAN  integer  (see  paragraph  8.2.4f). 

8.9.6  Other  Analysis.  Attachment  9 , Figures  5 and  6 show  some 
additional  analysis  of  the  IBM  treatment  of  the  program  ARRAY1. 
The  first  SIX  words  of  the  COBOL  WORKING-STORAGE  section  are 
printed  by  the  FORTRAN  program.  Figure  5 shows  the  fourth  item 
not  synchronized  whereas  Figure  6 shows  the  difference  synchroni- 
zation makes.  Also  the  technique  of  equivalencing  real  and 
integer  variables  in  FORTRAN  is  demonstrated  in  both  Figures. 
Figures  7 and  8 show  the  Job  Control  Language  associated  with 
the  programs. 

8.10  COBOL  PROGRAM-ID  Name  Selection.  The  COBOL  PROGRAM- ID 
name  may  consist  of  between  1 and  8 characters.  Honeywell 
FORTRAN  subprogram  names  may  also  contain  1-8  characters;  how- 
ever, IBM  FORTRAN  names  may  not  exceed  6 characters.  Therefore, 
a call  from  an  IBM  FORTRAN  program  to  a COBOL  program  with  a 
PROGRAM-ID  containing  more  than  6 characters  is  not  possible. 

One  solution  (and  probably  the  easiest)  to  this  problem  is 
to  always  use  a PROGRAM- ID  which  contains  £ or  fewer  characters. 

A second  solution  would  be  to  change  PROGRAM- IDs  which  contain 
more  than  6 characters  to  a name  which  contains  6 or  less.  This 
would  be  a valid  solution  unless  other  COBOL  programs  refer  to 
the  longer  PROGRAM- ID.  It  may  then  become  impractical  to  alter 
all  other  existing  references  to  this  longer  PROGRAM-ID.  To 
avoid  this  problem  an  ENTRY  statement  may  be  used  (see  para- 
graphs 6.2.6  and  6.3.3) . 
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The  ENTRY  name  should  contain  6 or  fewer  characters  and 
be  inserted  into  the  COBOL  program  immediately  following  the 
PROCEDURE  DIVISION  statement.  For  example 


PROGRAM- ID.  COBOLSUB. 


PROCEDURE  DIVISION  USING  VARIABLES, 
would  be  altered  to 

f 


e 

PROGRAM- ID . COBOLSUB . 


PROCEDURE  DIVISION- USING  VARIABLES. 

ENTRY  'COBSUB*  USING  VARIABLES. 

It  is  possible  that  the  COBOL  routine  cannot  be  altered 
(such  as  if  the  COBOL  routine  only  existed  in  a compiled  form) . 
In  this  case  the  ENTRY  point  may  not  be  used.  To  be  able  to 
call  a COBOL  program  with  a PROGRAM- ID  containing  more  than  6 
characters  from  IBM  FORTRAN  requires  the  use  of  an  alternate 
method. 

One  method  that  may  be  used  is  to  write  a COBOL  program 
with  a PROGRAM-ID  containing  6 or  fewer  characters.  This  COBOL 
program  would  in  turn  call  the  COBOL  program  which  contains  the 
longer  name.  For  example,  assume  an  IBM  FORTRAN  program  needs 
to  call  the  COBOL  subroutine  COMPUTE.  In  order  to  call  COMPUTE 
a second  COBOL  routine  (with  a PROGRAM- ID  containing  6 or  fewer 
characters)  could  be  written.  This  could  appear  as  follows: 

FORTRAN 


NEW  COBOL  SUBROUTINE: 


PROGRAM- ID.  CALLER. 


y 


' 


i 


j 


PROCEDURE  DIVISION  USING  X,  Y. 
CALL  'COMPUTE*  USING  X,  Y. 


ORIGINAL  COBOL  SUBROUTINE: 


PROGRAM- ID. 


CALLER. 


PROCEDURE  DIVISION  USING  Q,  W. 

8.11  Passing  COBOL  Group  Items.  COBOL  allows  a data  structure 
which  can  be  broken  into  substructures.  This  data  structure  is 

called  a group  item.  Following  is  an  example  of  a group  item: 

■» 

01  GROUP. 

03  ITEM-1  PIC  XX. 

03  ITEM-2  COMP-2 
03  ITEM- 3 COMP-1. 

The  group  item  GROUP  is  subdivided  into  ITEM-1,  ITEM-2,  and 
ITEM-3.  Notice  that  ITEM-1,  ITEM-2 , and  ITEM-3  each  have  a 
different  USAGE. 

When  a group  item  is  passed  to  FORTRAN,  the  programmer  must 
provide  an  array  in  FORTRAN  of  sufficient  length  to  contain  all 
of  the  words  in  the  group  item.  FORTRAN,  however,  assumes  that 
each  element  of  the  array  is  of  the  same  data  representation. 
The  programmer  must  manipulate  this  data  in  some  manner  to 
divide  this  array  into  several  items,  each  item  having  the  cor- 
rect data  representation  as  the  corresponding  item  in  COBOL. 
This  manipulation  can  become  lengthy  and  confusing. 

To  eliminate  this  problem,  do  not  pass  group  level  items. 
Instead,  pass  each  of  the  sub- items  separately.  For  example, 
rather  than  using 
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CALL  'FORT'  USING  GROUP, 
substitute 

CALL  'FORT'  USING  ITEM-1,  ITEM-2,  ITEM-3. 

The  FORTRAN  routine  would  then  be  altered  from 

SUBROUTINE  (ARRAY) 
to  appear  as 

SUBROUTINE  (ITEM1,  ITEM2 , ITEM3) 

where  ITEM1  has  the  same  data  representation  as  ITEM-1,  ITEM2 
as  ITEM-2,  etc.  In  this  manner  the  data  transfer  is  straight 
forward,  and  complicated  manipulation  is  avoided. 

8.12  The  STUB  Program.  When  writing  programs  and  subroutines 
of  any  nature,  it  is  always  best  to  start  at  the  simplest  levels. 
One  should  begin  with  a short,  basic  program  using  simple  data 
to  make  sure  the  concept  of  accomplishing  some  activity  is  prop- 
erly satisfied.  This  little  program  is  called  a STUB.  It  is 
a particularly  useful  idea  when  the  program  will  eventually 
link  with  another  program,  especially  if  the  other  program  is 
written  in  another  language.  After  the  stub  program  has  been 
made  to  link  properly  on  an  uncomplicated  level,  it  can  be 
expanded  and  the  data  may  become  more  complex,  toting  and 
debugging  at  each  level  of  sophistication,  until  the  program  is 
complete  and  runs  smoothly  using  the  real  data,  records  or  files 
required  of  production  programs. 


, 

i 


ATTACHMENT  1 


1.  This  attachment  contains  a sample  listing  of  the  IBM 
JCL  necessary  to  compile  an  IBM  COBOL  program  and  a COBOL 
subroutine.  Also  included  is  the  source  listing  and  the 
program  execution. 

2.  STEP1  of  the  JCL  uses  VSCOBC  to  compile  the  subroutine. 
STEP2  uses  VSCOBCLG  to  compile  the  driver  and  execute  the 
program.  Since  the  first  program  compiled  is  not  the 
driver  a //LKED . SYS IN  DD  * card  is  used  to  specify  the  name 
of  the  driver  (in  this  case  COBSHELL) . An  ENTRY  COBSHELL 
card  follows  the  //LKED. SYS IN  to  specify  COBSHELL  as  the 
driver  routine.  Had  the  driver  been  the  first  routine  to  be 
compiled  the  //LKED.SYSIN  and  the  ENTRY  card  would  not  be 
required.  (Compare  the  ENTRY  card  JCL  to  the  JCL  in  attach- 
ment 2)  . 

3.  Following  the  JCL  is  the  source  code  for  the  subroutine. 
Note  the  use  of  the  LINKAGE  SECTION  following  the  WORKING- 
STORAGE  SECTION.  The  PROCEDURE  DIVISION  USING... is  also 
used  in  this  subroutine. 

4.  The  source  code  for  the  driver  demonstrates  the  use  of 
the  CALL  statement.  The  items  being  passed  in  the  call  are 
defined  in  WORKING-STORAGE.  This  definition  matches  the 
definition  of  the  items  in  the  LINKAGE  SECTION  of  the  subrou 
tine.  Through  the  use  of  the  CALL  data  are  passed  to  the 
subroutine. 

5.  The  last  items  listed  are  the  output  from  the  program 
execution. 


A-l 


3 — ‘ »* 


//STFP1  EXEC  VSCOBC 

-XXVSGOBt  - pgQC-CT*J030,CA«ia3JL. 

XX  COPY* • SYS l*COPYLIB#  » COPY 1** SYS  1 ,CPPYLIB • 

a a A 


***  VS/COBOL  COMPILER  PROGRAM  PRODUCT 


***  IBM  PP  5740-CB1  RELEASE  2.2  W/PTF  6 

AAA 


XXCOB  EXEC  PGM*IKFCBL00,REGION*GCR,TIMF«CCT 

XXSYSLIB  DD  DSN*GCOPY,DISP=SHR 

XX  pp,psN=fcCOPYl,PISP*SHR— 

XXSYSL IN  DD  DSN=GCLOADSET»  DISP* (MOO»PA$S) *UNIT *SYSDA» 


i»tj  n- 


XXSYSPRINT  DD  SYSCUT=A 

XXSYSUDUHP  Dl>  SYSOUT-A 

XXSYSUTl  DO  DSN=GGSYSUT SPACE* (460, ( 1024, 120 )) , 

XX  UNIT^VIGOS 

XXSYSUT?  DD  DSN =£ G SY SUT2  » SPACE* ( 460, (1024,120)), 


XXSVSUT3  DD  OSN=CKSYSUT3 ,SPACF* ( 460, ( 1024, 120 )) , 

XX-  mm-VIODS 

XXSYSUT4  DD  DSN*£GSYSUT4, SPACE* (460, 11024, 120)), 

XX UNIT*VIOOS  

//COB.SYSIN  DD  * 

V/ST6P2 EX4C- — VSCOBC  LG 

XXVSCOBCLG  PROC  CT*0030,CR*192K ,LT*0030,LR*1 56K, 

XX  GTg0030 ,GR*156K , 

XX  COPY**  SYSl ,COPYL IB • ,COPYl*' SYS  1 • COPYLIB * , 

XX  L INK*-tSVSWP&*PftOD .VSCOBLIB* 

*** 


UW/MIl  ’III  — ■ 1 1 


ill  I III 


*** IB*  PP  5740 -CB4 — RELEASE  7.2  W/PIF  6 

*** 

XXCOB exec  PGM*4KFCB4.0O»ft&GION«£CJUT.IME«6C1 

XXSTEPLIB  DD  DSN=S YS 1 .PGMPROD.VSCOBOL , DISP*SHR 


XX  DD  DSN*ttOPYl,DISP=SHR 

XXSYSLIB  DO-  QSN=C-£LOAOSET,OI  SP= (MOD, PASS)  ♦ I.IN  IT*  SYS  DA  , 
XX  SPACF=(3200»(57,9)*RLSE) »DCB=BLKS IZE*3200 

XXSYSPR-INI  DO  SYSOUT*A 

XXSYSUDUMP  DD  SYSOUT*A 


i 4 ivilU  4 I 


IiiiV  JLill  ■ I 


I A l VI  ^ W III 


XX  UNIT=VIOOS 
XXSYSUT2  DO  DSM=£LSYSU- 
XX  UNlT*VIODS 
XXSYSUT 3 — DD  OSAULSSYSU: 
XX  UNIT=VIODS 


k 4 1-4  HU#  ’ 


I >1  iV  ■W  ’ n m 4.4  1H  I 


14  I B ■ 1 


XX  UNIT*VIOOS 

//CCB^SYSlK  00 4 

XXLKED  EXEC  PGM*IEWL,REGION*G LR ,TIME*GLT , COND* ( 5 ,LT, COB) , 

_XX PARMsMAP- 

XXSYSLIB  DD  nSN*SYSi.PGMPROD.VSCOBLlB,DISP*SHR 

-XX DO  PSN*SVSl.PCMPROO»PPRTlHUnrSP»SMB 

XX  OD  DSN*GLINK,DISP*SHR 

XX SYSL  IK  — QO  QSN*CCLQAQSET»OISPs(OLO»flFLETF  ) 

XX  DO  DDNAME-SYSIN 

-2  Attachment  1 


r 


36 


XI 


39 

4* 


+\- 

42 

4-3 

44 

4* 


- - 


XX SY St MOO 
XX 

X»S»SPRINT 


DO  OSN«&&GOSETfGOtrOISP*4MOOtPASS ) ,UNIT»SVSOA? 
SPACEe ( 6 l44t (7 6»  8 1 1 )) 

GO  GV  FOUT^A 


DO  0SN=GCSYSUT1  ,UNIT*VICin«:f 

rW-W 

* 


DD 


xxsYsun 

- XX 

^//LKED.SVSIN 

("^XXGG  f*SC  PGH»».LKEO.S¥StMOptRFCION-<CRtTlHe«SGT, 

XX  COND=M9rLT,LKED)  ,(  5rLT,COB)> 

XXGPGG* DD  DSN^fctOOSFTrWIT-^YSOA.  &PACC»(TftK  ,J)  ,DISP«<MQP , DELETE  ) 

XXSYSDBOUT  DD  SYSOUT»A 

XXSYSOUT  DO  SYSOUT~4 

//GO. READER  DD  * 


//GO.GR4NTGK-  00 
// 


SYSQUT^A 


BMTRY  QObSMELL. 


W-CF1  RELEASE  ^2  JULY  2A* 


10.38.05  FFB  6,1979 


IPENTIFICATIOHTHVISION. 


PROGRAM-ID.  SHELLS. 


AUTHOR. 


DATE-WRITTEN.  14  APRIL  1978. 


DATE-COMPILED.  FEB  6,1979. 


REMARKS.  SHELL  SORT 

SHELL  SQRT^  INSTEAD ~SF  ALWAYS  COMPARING -ADJACENT  KEYS-,  ONE  - 

COMPARES  AND  EXCHANGES  KFYS  THAT  MAY  BE  FAR  APART  TO  BEGIN 

WITH.  THE  DISORDER  OF  A HUS  IS  OSCINBO  TO  BE  TUB  AVERAGE 

DISTANCE  A RECORD  IS  FROM  THE  LOCATION  IT  WILL  ULTIMATELY 

OCCUFVm  THE  SORTED  FILE,  ONE  APPROACH  TOTHS  DESIGN  OF  A— 

SORTING  ALGORITHM  IS  TO  AIM  AT  A REDUCTION  OF  THIS  MEASURE 

TO~4*S  ULTIMATE  VALUE  OF  76RP  IN  A SYSTEMATIC  MANNER.  SHELL 

SORT  EXEMPLIFIES  THIS  APPROACH. 


10.38. *5 


4C« 6. 1 1979 


ENVIRONMENT  DIVISION. 


CONFIGURATION  SECTIGN. 

SOURf F— COMPUTER ■ tan-iTfl 
OBJECT-COMPUTER.  IBM-370. 


DATA  DIVISION. 


WORKING-STORAGE  SECTION. 


1 PK  S09P VALUE -ZIERO  COMP  SYNC. 

T7  J PIC  S99P  VALUE  ZERO  COMP  SYNC. 

77  7WE-GEN  T IN6L— ELE-MEN4 PIG  S999 VALUE  ZERO  COMP  SYNC  . 

77  THE-DI SOPDER-OE-T HE-F ILE  PIC  S999  VALUE  *1  COMP-3. 

77  NliMBER-OE-PASSES-TO-SORT -PILE — PTC S999  VALUE  ZERO  COMP»3. 

77  TEMPORARY-STORAGE  PIC  S999V99  VALUE  ZERO. 


LINKAGE  SECTION. 


77 


NUMBER-ELEMgNTS«II^THEiARPAY  PIC  099 


C0HP»3 


01  ARRAY-TABLE. 

. A DP  AY- ELEMENT 


PIC  S999V99  OCCURS-  -100  TINES 


PROCEDURE  DIVISION 

USING  NUMBfeG-SLfcHi*fT8-IN-THC-ARRAy,  ARRA*-TABL8 


06T6RH1N6-THE-FIL&-OISOROER- 

COMPUTE  THE-OISOROER-OF-THF-FILF  ■ 

2 -*  THE-PiSOROeR-OF-THE-PILF. 

IF  THE-DISORDER-OF-THE-FILS  IS  LESS  THAN 

NUHBGR-€L6MfcNTS-IN-THF- ARRAY  OR  EQUAL  TO 

NUMB  ER-ELFMEN TS-IN-THF- ARRAY 
GO- TO  DETERHINfc-THB-PILF-PISQRPBR. 


DETERMINE -NEW-OISOROER. 

GOHPUT£THE-PTSORDER-OF-THF-FILg  w 

ITHE-DISORDER-OF-THE-FILF  - 1)  / 2. 

IP  THE-OISORDeR-QF-THS-FILF  IS  EQUAL  -TO  ZERO 

GO  TO  SORT-COMPLETE, 

COMPUTE— NUMBER-OF-PASSi8-TP— SORT-PILE  « 

NUMBER-ELEMENTS-IN-THF-ARRAY  - THE-DISOROER-OF-THE-FILE. 


SOP T— THE— ARRAY 

PERFORM  SHELL-SORT  THRU  DO-NOT-SORT 
— VARYING  l -FROM- 1 -BY-  1 UNTIL  I EQUAL  TO 
NUMBER-OF-PASSES-TO-SOPT-FILE, 

— GO  TO  PGTFRMINF -NEW-OISOROER. 


SORT-COMP LET 6. 

■GRIT  PROGRAM,- 


. 


10.38. a 5 


FER  4>.4aTft 


SHELL— SORT • 

— — move  na  j. 

rETERMINE-I F-ARRAY-IN-OROE  R • 

— COMPUTE  THE-SENT 1 NE L -ELEMENT  - J ♦ TM6-PISORPER-OF-THS-E ILS. 

I F ARRAY-ELEMENT  (THF-SENTINFL-ELEMENT) 

IS  GREATER  THAN  ARRAY-ELEMENT  ( J) — 

OR  IS  EQUAL  TO  ARRAY-F LeMENT  (J) 

GO  TO  DO  -NO  T-»  SOR  T-. 

MOVE  ARRAY-ELEMENT  (J)  TO  TEMPORARY-STORAGE. 

...  MOVE  ARRAY--E-GEMENT  (THE-SEN-TINEL-ELE-MENT)  TO 

ARRAY-ELEMENT  (J). 

MOVE  TEMPORARY-STORAGE  JO 

ARRAY-ELEMENT  < THE-SENTTNEL— FLEMENT) . 

- COMPUTE  + --  T HE -01 SQROER -OF -THE -FI l E . 

IF  J IS  GREATER  THAN  ZFRO  GO  TO  OETERMINE-IF-ARRA Y-IN-ORPER. 


OO-NOT-SORT. 
EX-IT. 


PROCEDURE  DIVISION 


__  ... g r-y  p ^ 

OPEN  INPUT  INPUT-DATA-FILE  OUTPUT  PRINT-FILE. 


R E AQ-AN-E LFMENT-I NTO-THE— ARRAY . 

ADD  1 TO  I«  NUMBER-ELEMENTS-IN-THF-ARRAY. 

READ  INPUT-OATA-FILE  RECORD 

AT  END 

GO— TO  SHELL-SORT— THE-ARR  AY. 

MOVE  ARRAY-DATA  TO  PRINT -ARRA Y-FLEMENT,  ARRAY-ELEMENT  (I). 

WRJ-TF  A-LINE -OF -PGINT -FROM- PRINT-RECORD 

AFTER  ADVANCING  1 LINFS. 

- DO-  TO  RE  AO-AN-E L-E-ME NT -IN TO-THE-ARRAY. 


SHELL-SORT-THE-ARRAY. 
CALL  'SWELLS* 


USING  NUMBER-ELEMENTS-IN-THF-ARRAY,  ARRAY-TABLE. 


WRIT  S--THE  -S  OR  T E D—ARRA-Y. 


WRITF  A-L INE-OF-PRI NT  FROM  SORT-HEADING 

AFTER  ADVANCING  TO-TOP-OF-PACE . 

PERFORM  WR 1TE-SORTE O-NUMBER? 

VARYING  M FROM  l BY  1 UNTIL  -M- -IS  EQUAL  TO 


NUMBER-ELEMENTS-IN-THE-APRAY. 


F«*  - 


WRI TE-SORTf O-NUMRER S . 

MOV*  ARRAV-61  E*6NT  4*»  -TO  -PRTNT-ARR  AV»iLSMlNT , 
WRITE  A-L1NE-OF-PRINT  FROM  PRINT-RECORD 


, THE  R041OM1NO  NUMBERS  ARE  SORTS© 

Ml  0.00 

B^BV 

0.15 

w 0-.5B 

123.45 


C 


W — — 


ATTACHMENT  2 


1.  This  attachment  contains  a sample  listing  of  the  IBM  JCL 
necessary  to  compile  an  IBM  COBOL  program  and  a COBOL  subrou- 
tine. Also  included  is  the  source  listing  and  the  program 
execution. 


2.  The  DRIVER  step  compiles  the  COBOL  driver  routine  using 
VSCOBC.  The  SUBRTNE  step  compiles  and  executes  the  subrou- 
tine using  VSCOBCLG.  Since  no  //LKED.SYSIN  card  is  used  the 
computer  assumes  the  first  routine  compiled  is  the  driver. 
(Compare  this  with  the  JCL  in  attachment  1) . 

3.  Following  the  JCL  is  the  source  code  for  the  driver  which 
contains  the  call  statement.  The  driver  is  identical  to  the 
driver  found  in  attachment  1. 


4.  Next  is  the  source  code  for  the  subroutine.  Again,  this 
is  identical  to  the  subroutine  in  attachment  1. 

5.  The  last  items  listed  are  the  output  from  the  program  execu- 
tion. 
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//DRIVER  EXEC  VSCOBC 

xxvscobc  ~ ?rbt  ct*ot5b,cr*tok7 
xx  copy«*sysi.copylib»,copyi*»sysi.copylib» 


VS/COBOL  COMPILER  PROGRAM  PROOUCT 


IBM  PP  57*0-CBl  RELEASE  7.2  W/PTF  6 


EXEC  PGM«IKFC8L00  »REGION*CCR  ,TIME*CCT 


*** 


*♦* 

XXCOB 


iiiii.  ■■  •]  nifi.i  -hi  ■wih.um:i: 


XXSYSLIB  DD  DSN*CCOPY,DI SP*SHR 

X5T UD“U5Ni£CaP Y1 , DI5P*SHR 

XXSYSL IN  DD  DSN*CCLOADSET,DISP* (MOD, PASS) ,UNIT*SYSDA, 

XX SPACE=f3200,  157,9)  ,RL5n  ,DCB«BLK5lZfc*320B 

XXSYSPRINT  DD  SYSOUT-A 


XXSYSUT1  DO  DSN*CCSYSUT1, SPACE* (460, ( 1024* 120) ) * 

xx ON  rT=vTocr5 

XXSYSUT2  DD  DSN*CCSYSUT2, SPACE* (460 ,( 1024* 120 )) , 

XX  UNIT=VTOD5 

XXSYSUT3  DD  DSN*CCSYSUT3 .SPACE* (460, 11024, 120) ) , 


llH’liO’iOliM 


XXSYSUT4  DD  DSN*CCSYSUT4, SPACE* (460, (1024, 120)1, 

XX UNIT*VIOD5 

//COB.SYSIN  DD  * 

//SUBRTNE  EXEC  VSCOBC UG 

XXVSCOBCLG  PROC  CT=0030,CR*192K,LT*P030,LR«156K, 


.bKsiSOK, 

XX  C0PY«»SVS1.C0PYLIB»,C0PYI*»SYS1.C0PYLIB», 

XX  LINK*TSYS I .PGKPROD.V5CDBLTB  » 

**• 

V57C0BUL  COMP  ILED  'PROGR  AM  'PRODUCT 

*** 


> i .1  . ■ j '.an , 


*** 

XXCOB  EXEC  PGff*TKFLBL00,REGION*CCK,TIMt*CCI 

XXSTEPLIB  DD  DSN*SVS1.PGHPROD.V$COBOL,PTSP*SHR 

XXSYSLIB  DDT  D3TJ=CC0PY,T)I5P*SHR 

XX  DD  DSN*CCOPYl»DISP*SHR 


■) » r ■■■  ili*iki,n^^,H  ' ii.ninj  wvim,.  i ■ ikiMu 


XX  SPACE*(3200,(57,9I,RLSE),DCB*BLKSIZE«32#0 

~XX5YSPRINT~DD  SY50UT*X 1 

XXSYSUDUMP  DD  SYSOUTsA 

XXSYSOTr  DOT  DSN*CCSYSUTr,SPXCE»C46y,  riT24.I2glT. 

XX  UNIT*VIODS 

XXSYSUT2  ~ ~OO~PSNfcCCSYSUT7,SPACE«<460, T1024. 1201 1 , 

XX  UNIT*VI0DS 

XXSY50T3  DD  DSN*CBSYSUT3 .SPACE* ( 460,  TTW247T701 1 , 

XX  UNIT=VIODS 

“ TXSYS0T4  DD  OSW^CgSYSUTA^SPACE*  f 46g,Tlg24,  1201)  , 

XX  UNIT  =VIODS 


XXLKED  EXEC  PGM* IE WL, REG ION*CLR,YIME*CLT ,COND*(5 ,LT,COB ) , 

XX“'  ■p  ARMiMXP" 

XXSYSLIB  DD  DSN*SYS1 .PGMPROD.VSCOBLTP,OISP*SHR 

“XX  Op-  psw*SYST. PGM PROD . FURTL I B . 01 SP» SHR 

XX  DO  DSN*CLINK,DISP*SHR 


3? 


DD  DON AME*SYSIN 
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37 

3e 

XX 

XX$YSP*TNT 

XXSYSUT1 

SPACE* (6144* (76*8.1 H 

DO" SYSOUT=A 

DD  DSN*C£SYSUTI,UNIT«VI0DS* 

3 

XU 

XXGO 

space  s (i  024*  (Ziovrm 

EXEC  PGM=*.LK6D. SYSLMOD*  REGION*CGR*TIME=£GT * 

XX 

COKiD* T (9flt i LK  ED)  * (?»Lt * C OB  1 ) 

40  XXGOSET  00  OSN*ttGOSET,UNIT*SYSDA,SPACE*(TRK*0>,DISP*(MOD, DELETE) 

41  XXSY 5DHKJT  DD  SYSCUT=A 

42  XXSYSOUT  DO  SVSOUT*A 

*3 //GO .READER  DO * 

44  //GO .PRINTER  DO  SY$OUT*A 

7T  ' 
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DATA  DIVISION. 


FD  INPUT-DATA-FILE 


77  I PIC  S999  VALUE  ZERO  COMP  SYNC. 

77 — J Pit  S9V9 VALUE  TEKU  LUMP  SYNC. 

77  M PIC  S999  VALUE  ZERO  COMP  SYNC. 


01  SORT-HEADING. 

92 — FTTLETT  PIC  X VALUE 'SPACE. 

02  FILLER  PIC  X(32)  VALUE  'THE  FOLLOWING 

* NUMBERS  ARE  SUKIEU*. 

02  FILLER  PIC  X(100)  VALUE  SPACES. 


02  FILLER 


PIC  xm 


VALUE  SPACES. 


PROCEDURE  DIVISION 


~ SET-UP. 

OPEN  INPUT  INPUT-DATA-FILE  OUTPUT  PRINT-FILE. 


PEAP-AN-EIFHFNT-INTO-THE-ARRiy. 

ADD  1 TO  I,  NUMBER-ELEMENTS-IN— THE— ARRAY. 

" READ"  rNFUT-Dm-rTUT  "RECORD 

AT  END 

STIETT-5~ORT-T  HE- ARRAY. 

MOVE  ARRAY-DATA  TO  PRINT-ARRAY-ELEMENT,  ARRAY-ELEMENT  (I). 

WRITE" X-TTNE-UF-PTaNT~  FROM  PR  TIT  t -RE CORD 

AFTER  ADVANCING  1 LINES. 

G0  TQ  ^ap^AN-ELEMENT-INTO-THE-ARRAY. 


SHELL-SORT-THE- ARRAY. 

USING  NUMBER-ELEMENTS-IN-THE— ARRAY,  ARRAY-TABLE. 


WRTTr-THF-SORTrCT-ARRTT. 

WRITE  A-L1NE-OF-PRINT  FROM  SORT-HEADING 

jjTYK-iwxnCim.  TO-TPP-UF-PACE . 

PERFORM  WRITE-SORTED-NUMBERS 

VARYING"  MTROW~rgV  l~1INTIL~~WnrS  EQUAL  TO 
numbfr-elements-in-the-array. 


’STUP~"RUFTT~ 


write-sorted-numbers. 


17.12.41 


FFR  5.1470 


AUTHOR 


REMARKS.  SHELL  SORT 

SHELL  SORT * INSTEAD  OF  ALWAYS  COMPARING  ADJACENT  KEYS.  ONE 
COMPARES  AND  EXCHANGES  KEYS  THAT  MAY  BE  FAR  APART  TO  BEGIN 

WITH.  TRF  DISORDER  OF  A file  is  dEfined  tD  bE  The  average 
DISTANCE  A RECORD  IS  FROM  THE  LOCATION  IT  WILL  ULTIMATELY 

SORTING  ALGORITHM  IS  TO  AIM  AT  A REDUCTION  OF  THIS  MEASURE 

TTTTTS  ULTIMATE ~VALUt  uf  ZERO  in  a SYSIEMai  It  MANNER*  SHEL 
SORT  EXEMPLIFIES  THIS  APPROACH. 

X 

• V 


PROCEDURE  DIVISION 

gSTNG  NUHBER-TLEMENTS=IW-THF-THHAV,  AKRTT^TTgCE. 


D ET  f RM  I NE  -TH  E-  F I L fi-D  IlHJWCTT 

COMPUTE  THE-DISORDER-OF-THE-FILE  « 

r~y~TTrr-o  rsuRPER-UF-THr-nTE-: — : 

IF  THE-D ISORDER— OF-THE-F ILE  IS  LESS  THAN 

^UHB^^tEHFWTS-IN-THF-ARRAY  OR  EUUAL  TO 

NUMBER-ELEMENTS -IN-THE-ARRAY 

GO  TO  DETER MINE -THE- FTLF-D I 5URDER. 


DETERMINE-NEW-D ISORDER# 

COMPUTE  TH  E-OI SCTRDE  R-0 F-TH E-F I L E • 

C THE-DISORDER-OF-THE-F ILE  - 1>  / 2. 

TF  T HE -DTSURD  ER -OF-THE -FILE  IS  fcOUAL  TU  ZERO 

GO  TO  SORT-COMPLETE. 

COMPUTE  1TOHB EK-UF’-PASSES^O-SUR  1-HLE  « 

NUMBER— EL EMFNTS-IN-THE -ARRAY  - THE-DI SORDER -OF-THE-F ILE# 


SORT-THE-ARRAY.  

PERFORM  SHELL-SORT  THRU  OP-NOT-SORT 

_ VjtR-ymGrr-FfiuH  ; By  x WtTL  T EOUAL  TU 

NUMBER -OF-PASSES-TO-SORT-FILF. 

GO  TO  DETERWTNE-NEW-D ISORDER. 


i 


SORT-COMPLETE. 

” ~extt -program; 


tht  TPtuoTnwcnnpfFws  sorted 

• .if 

r#lr— 
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ATTACHMENT  3 


1.  Tfiis  attachment  contains  a sample  listing  of  the  IBM  JCL 
necessary  to  compile  an  IBM  FORTRAN/COBOL  mixed  program.  Also 
included  is  the  source  listing  and  the  program  execution. 

2.  Step  FORTRAN  compiles  the  FORTRAN  portion  of  the  program 
using  FTG1C.  The  COBOL  step  compiles  the  COBOL  portion  of  the. 
job,  and  executes  the  entire  program,  using  VSCOBCLG.  Since 
no  //LKED. SYSIN  ‘card  is  used,  the  first  program  compiled  (in 
this  case,  the  FORTRAN  program)  is  assumed  to  be  the  driver. 

3.  Following  the  COBOL  program  is  a //GO. FT06F001  DD  SYSOUT=A 
card.  This  card  is  necessary  for  the  FORTRAN  program  execution. 
During  a FORTRAN  execution  using  FTG1CLG  this  card  is  normally 
supplied  for  printer  output.  However,  neither  the  FTG1C,  nor 
any  COBOL  JCL  procedure  provide  this  card.  It  is,  therefore, 
necessary  for  the  programmer  to  supply  this  card  if  the  program 
assumes  file  code  06  is  the  printer. 

4.  Following  the  JCL  is  the  FORTRAN  source  code.  Note  that  the 

CALL  COBSUB (I) 

statement  is  calling  the  COBOL  subroutine  named  COBSUB. 

5.  The  COBOL  source  code  contains  the  LINKAGE  SECTION  which  is 
required  when  passing  values  to  the  COBOL  subroutine.  The  data 
items  defined  in  the  LINKAGE  SECTION  agree  in  type  with  the  data 
items  being  passed  from  FORTRAN.  The  PROCEDURE  DIVISION  USING... 
clause  is  also  used  in  the  COBOL  subroutine. 

6.  Following  the  COBOL  source  code  is  the  output  from  the  execu- 
tion. The  array,  as  passed  from  FORTRAN,  is  listed  followed  by 
the  array  as  received  by  COBOL.  Notice  the  array  structures  are 
different  between  COBOL  and  FORTRAN;  i.e.,  FORTRAN  rows  are  COBOL 
columns  and  FORTRAN  columns  are  COBOL  rows. 


■ 
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//FORTRAN  EXEC  FTb*C,PAkM.K>RT*»NOLlST» 

XXFTG1C  PK.OC  CT=4030vC*=12fiK 

AXFlkAT  EXEt  PGM=1G1F0RT  ,R£blON=CCR ,T1ME=CCT 

XXSYSLlN  DC  0SN=L&LUA0ScT»D1SP=(»UU*PASS).UNIT=SYSDA, 
XX  SPACE M3^00,(S7,9>fRLSE>,DC&=BLXSlIfc=3200 

XXSYSPRINI  DD  SYSOUT-A 
XXSVSTERH  DO  SYSOUl-A 
XXSYSuDUMP  DD  SYSOUT=A 

//Eurt.sysin  U)  * 

✓/cobql  t XtC  vscqbclg 

XXV SCOBCLG  PkUC  CT  =11030  , CR*  l V 2X  » LT  =0 030  « LR=lt>6K « 

XX  01=0030 tGK^LSoK 9 

XX  CQPY=  *SY3 1 .COPY  LIb*»CQPYl-*SYSl. COPYLib  * t 
XX  L1NK=*SYS,*.»  PGHPKOD. VSCOBL1B  * 

4*«  vs/caaciL  compiler  program  product 

*•* 

***_  IBM  PP  3TG0-Cbl  RELEASE  2.2  M/PTF  o 

**« 

XXCJB  EAEC  PUM=1KFCBLP0  »RfcGiOM=fcCR»T iHE=CCT 

XXSTEPL13  G0~DSN=SYSl.PGMPRUG.VStO&OL9OISP=SHA 
XXSYSL1 B DD  DSN=&CoPY»DlSP=SHR 
XX  DD  DSN=LCCPY i.  • D 1 SP=  S Hk 

XXSYSLlN  DU  OSN=CGLaAD*ETvDlSP=(MOUtPASS)»UNIT=SYSDAv 

XX  SPACEM3Z00vl5?»9)»RLSE}vDCB>BLKSiZE=3200 

XXSYSPR1MT  DD  SYSoUT=A 

XXiYSDGURP  Go  SVSouT  =A 

XXSYSUTi  DD  USH=C&SYSUTi aSPACE=f  *»60  « t 1024*120  I ) « 

XX  URlT=ViOOS 

XX&YSUT2  DD  D&M=CGSY$oT2t SPACED *60 « U024»120)>  , 

XX  DMlI-VlOD$ 

XXSYSUT3  DD  DSf»=ELSVSl>T3.S?ACE  = « 400  • 1 1E24,  1*0  I)  , 

ITX USTT-VXDdS 

XXSYSUT*  DD  DSN=CCSYSUT4vSPALE=(G60vti02%»l20))v 

XX  UbiT-VlODS 

y/cDB.SYSlN  DD  * 


XXSYSOTl  DD  USH=CCSYSl*Ti  aSPACE  = f 460  « i 1024*120  II* 

XX  UKXT=YiODS 

XXSYSUT2  DD  DSM=CGSYSoT2»SPACE=t4o0v (1024»120I) « 

XX  DMlT=YlODS 

XXSYSUT3  DD  DSft=ttSYSDT3vS?ACE=<4G0v«ie24»i20 ))t 

TX UK1T-VIDD3 

XXSYSUT*  DD  DSN=CCSYSOT4vSPALE=(G60vtl02%»l20))v 
XX  UbiT-VlODS 

/A.DB.SYS1N  DD  * 

XXLXfcU  EXEC  PGM=IEWLaREGlUN=CLRaTlM£=GLT»CONO=t3«LTvCOBtv 
XX  P4RM=MAP 


XX  DD  DSN=SYSI.PGMPR0D.PQRTLIB*D1SP-SHR 

XX  DD  DSN=  CLikK » Q 1 SP -SHK 

AASYSlIM  DD  0S*=LU.0ADSE2«DiSP=(0LDvD£LETE) 

XX'  DD  DDUAME=SYSIM 

XXS VSLMOD  DD  DS»i=CCGOSETlbO>»DlSP=(MUDvPASS)tUMIT=SYSOAt 

~xx  space= (6i44* i?*;av i i > 

AXSYSPRl^T  DD  SYSOUT  =A 

XXSVSUT 1 DO  DSN- CCS  VSUTl * UNIT - VIODS* 

XX  SPACE=U0C4v(200vim 

XXGO  EXEC  PDK=* .lKED. SYILmOD, R tGTCN=CGR « T1ME=£GT , 

XX  COhiD=  I ( V.LT  • LKED ) . 13  ,LT  .COB  ) > 


XXSYSOBOUT  DD  SYSUUT=A 
XX SYS OUT-  DD  SYSOUT = A 
//6U.FT06F001  DU  SYSOUT=A 
//GO.OUTPUT  DD  SYSOUT*A 
// 
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J 


f OK T K AN  IV  tel  MtLE  A ifc  2..' 


MAIN 


OATL  x 1906o 


r 


w 

0001 

DIMENSION  llj,4) 

0..5*< 

a = 0 

00  10  K - 1*  3 

0004 

JO  20  M = 1 » 4 

0006 

J ■=■  J ♦ 1 

0006 

1 IK t Ml  - J 

0007 

26 

continue 

0006 

10 

continue 

000V 

mKITE  (6.  30) 

0010 

->0 

FORMAT  (■  FORTRAN:*) 

0011 

00  40  J = l,  3 

0012 

40 

«RlTt  <6,  50»  «i(Jtl)v  1 ( J 1 2 ) , JIj,  3),  1 ( J * 4 ) 

0013 

50 

FORMAT  WI5H  , 1>)) 

00i4 

CALL  C0B!.U3Tn 

0013 

STOP 

^16 

END 

11.14.45 


MAR  7.19T9 


T 


004*1 

IDEM  1F1CAI luN  01%  l SIGN. 

000  0*! 

00003 

PROGR AM-IO.  COO SOB. 

AUTHOR. 

00034 

00005 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

03326 

00001 

SOURCE— CO MPU1  ER.  IBM-3033. 

OBJECT— COMPuT  ER.  iBM-3333. 

00006 

00009 

lNPjT-OUTPOt  SECTION. 

FILE-CONTROL. 

00010 

002  li. 

SELECT  OUTPUT-FilE  ASSIGN  TO  UR-S-OUTPUT. 

DATA  01 VI  SI  UN • 

000  it 

00J13 

FILE  itCTlON. 

rO  OUTPUT-FILE  LABEL  RECORDS  ARE  OMITTED. 

00014 

00015 

01  A-LINE -OF -PRINT  PIC  XI133I. 

WORKING- STORAGE  SECTION. 

400  lo 

00017 

77  FIRST-SUBSCRIPT  PIC  S99  COMP  SYNC. 

01  output-record. 

fit  13 

00019 

05  FILLER  PIC  XI 51  VALUE  SPACES. 

03  UUT-i  PIC  9(6). 

00023 

00021 

05  FILLER  PIC  X(5)  VALUE  SPACES. 

03  OUT-2  PIC  9(6). 

00422 

00023 

~ 15  FILLER  PiC  X(3)  VALUE  SPACES. 

35  OUT-3  PIC  9(6). 

BB  24 

00025 

0J  FILLER  PTC  XTl22)  VALuF  SPACES. 

LINKAGE  ScclIUN. 

0032b 

00027 

11  array -TaBlE. 

05  MATkIX  OCCURS  4 TIMES. 

00*2u 

00029 

~15  cucUMNs  PiC  4io!  COHP  OCCURS  3 TIMES. 

PROCEDURE  DIVISION  USING  ARRAY-TABLE. 

00  < 30 

00031 

open  OUTPUT  output-file.  

MOVE  • COBOL  ARRAY:*  TO  OUTPUT-RECORD. 

0*132 

00033 

'JRiTE  a-line -of -print  from  output-record  after  advancing 

1 LINES. 

00034 

00  <035 

MOVE  SPACES  TO  OUT p JT-ftFCORD . 

PERFORM  MOVE— AND— WR1 TE  THRU  MOVE— AND— WR1 TE-EX1T  VARYING 

1003o 

00037 

FIRST-SUBSCRIPT  FROM  i BY  I UNTIL  FIRST-SUBSCRIPT  IS 
uKcATER  THAN  4. 

00030 

00039 

CLOSE  OUTPUT-FILE. 

EXIT-PROGRAM. 

00441 

000*4. 

EAlI  PROGRAM. 

MCVE— AND— WkITE. 

11042 

00*43 

M<5Vc  COLUMNS  (first-Sub$cr1pT,  1)  to  OUT-1. 

MOVE  COLvMMS  ( t IRS T— SUBSCRIPT  » 2)  TO  OUT-2. 

1104* 

000*5 

h£>Vc  columns  (first-subscript  , 3)  TO  0uT-3. 

WRITE  A-LINE-OF -PRINT  FROM  OUTPUT-RECORD  AFTER  ADVANCING 

1004o 

00047 

1 LINES. 

MOVc— AND— WAIT E— EXIT • 

n 43 

E XI T • 

C04JL  ARRAY  • 

0000  01  000005  00^009 

000002  000006  £0eeic 

C00033  000X01  000011 

00030*  000000  " 003012 


ATTACHMENT  4 


1.  This  attachment  contains  a sample  listing  of  the  IBM  JCL 
necessary  to  compile  an  IBM  FORTRAN/COBOL  mixed  program.  Also 
included  is  the  source  listing  and  program  execution. 

2.  The  FTSUB  step  compiles  the  FORTRAN  portion  of  the  program 
using  FTG1C.  The  COBOL  driver  is  compiled,  and  the  entire  pro- 
gram executed  using  VSCOBCLG.  The  second  program  compiled  is 
the  driver  so  a //LKED.SYSIN  card  is  used  (see  attachment  1) . An 
FT06F001  card  (see  attachment  3)  is  added  for  the  FOPTRAN  program 
execution.  A temporary  file,  FT08F001,  is  also  supplied. 

3.  The  FORTRAN  subroutine  is  next  listed.  This  program  reads 
the  temporary  file  (file  code  08),  changes  their  values,  writes 
the  changed  values  on  the  printer,  then  rewrites  the  values  on 
the  temporary  file. 

4.  Following  the  FORTRAN  subroutine  is  the  COBOL  source  code. 

The  CALL  'FTSUB*  statement  in  COBOL  calls  the  FORTRAN  routine. 
This  COBOL  driver  reads  and  writes  on  the  temporary  file  also. 
Note  the 


SELECT  TSTFYL  ASSIGN  TO  UT-S-FT08F001 

statement  uses  the  FORTRAN  name  FT08F001  for  the  temporary  file. 
COBOL  demands  this  file  name  begin  with  a letter.  FORTRAN,  how- 
ever, uses  a numeric  designator  in  a READ  or  WRITE  statement 
which  FORTRAN  relates  to  the  JCL.  For  example, 

READ  (nn,10) 

in  FORTRAN  relates  the  file  code  nn  to  a JCL  DD  card  FTnnF001. 
This  fact  is  not  easily  avoidable  in  FORTRAN.  It  is,  therefore, 
easiest  to  refer  to  the  file  in  COBOL  by  using  the  FORTRAN  name. 

5.  Before  the  CALL  'FTSUB'  statement  is  a CLOSE  statement  which 
closes  both  PRTOUT  and  TSTFYL.  TSTFYL  is  the  same  temporary  file 
that  the  FORTRAN  subroutine  will  read  and  write,  and  is  closed  to 
prevent  FORTRAN  from  trying  to  open  the  file  which  COBOL  already 
has  open. 


b /AUub  fcXr.C  f f&ltyPAKK.FLKl-'NuLlSl' 

3 aAF1»1L  PkoC  Cl-Uto3*tCk-l<bk 

4 AaKaI  tXcb  PUH-IblKJKr  ,htblUU-fcLR,TlMt  = ».C1 

> XXi^Y^L iN  bi>  ^ 1 1 f i>(* 1 1 UNI  T— iYSl/A| 

aA  iPXbl -I  3<'Y0y  dl  y Y)y kLSfc  »ybbto=3Lkillt cb*0C 

to  AXSY.kPKlNl  Ub  MbuUI-A 

f AAbY.»TLkt  wJ  hVii»tl-A 

t>  XXS»VSUU4>tP  uD  bYhbbl-A 

4 //I- ,.*v  F»  b f i aN  bu  * 

a*-  t Ar:C  Y^ubiiLb 


11 

AAVi4.bb4.Lto 

PKl.c  4.  1 = k' Yi  t V-K-  1 /Zky  ll  — ll  10  i.l*-l  f>OA  t 
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Attachment  4 


FEb  20,1979 


IDENTIFICATION  DIVISION. 

FaUGR Art-1 C.  lCaLLF. 

AUTHOR. 
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ATTACHMENT  5 


1.  This  attachment  contains  a sample  listing  of  the  Honeywell 
JCL  necessary  to  compile  and  execute  a Honeywell  COBOL  program 
and  a FORTRAN  subroutine.  Also  included  is  the  source  listing 
and  the  program  execution. 

2.  Cards  annotated  with  an  A between  the  card  number  and  $ 
are  the  activities  of  the  job,  card  numbers  7,  8,  and  9.  Card 
7 is  the  FORTRAN  compile,  card  8 is  the  COBOL  compile,  and  card 
9 is  the  execute.  Because  the  COBOL  program  is  the  driver  and 
is  not  loaded  first  (card  8),  note  the  use  of  the  $ ENTRY. 

3.  The  source  code  for  the  driver  and  subroutine  illustrates  a 
file  created  in  COBOL  can  be  modified  by  a FORTRAN  program  and 
output  by  both,  passing  no  arguments  either  way. 

4 . The  last  items  are  the  execution's  output.  Note  the  COBOL 
program  ouputs  are  output  together.  Under  "COBOL  Reentered", 
note  also  that  the  FORTRAN  program  has  stripped  off  the  lead- 
ing zeroes. 
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ATTACHMENT  6 


1.  This  attachment  contains  a sample  listing  of  the  Honeywell 
JCL  necessary  to  compile  a Honeywell  COBOL  driver  and  FORTRAN 
subroutine.  Also  included  is  the  source  code  listing  and  the 
program  execution. 

2.  The  activities  (A)  are  the  same  as  Attachment  5:  Compile 
of  the  COBOL  program,  compile  of  the  FORTRAN  program,  and  the 
execution  (cards  6,  7,  and  8).  The  $ ENTRY  is  used  with  the 
COBOL  PROGRAM- ID  (CARAYF) , but  is  not  necessary  because  the 
COBOL  program  precedes  the  FORTRAN  program.  The  COBOL  program 
would  be  considered  the  driver  without  the  $ ENTRY  because  it 
is  the  first  program  encountered. 

3.  The  COBOL  source  code  creates  a nine  element  table  (three 
rows  by  three  columns)  of  character  data.  It  is  listed  as  out- 
put with  the  subscripts  of  each  element.  The  table  is  passed 
to  the  FORTRAN  routine  where  it  is  listed  (without  subscripts) 
row  by  column,  and  then  column  by  row. 
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ATTACHMENT  7 


1.  This  attachment  contains  a sample  listing  of  the  Honeywell 
JCL  necessary  to  compile  a Honeywell  COBOL  program  and  FORTRAN 
subroutine.  Also  included  is  the  source  listing  and  program 
execution . 

2.  The  activities  (A)  are  the  COBOL  compile,  FORTRAN  compile, 
and  execution  (cards  7,  8,  and  9).  The  $ ENTRY  uses  the 
PROGRAM-ID  (CPASSF)  of  the  COBOL  program  (driver) . The  COBOL 
program  is  loaded  first  so  the  $ ENTRY  is  not  required.  How- 
ever, if  the  order  of  the  programs  is  changed,  perhaps  by  a 
second  programmer , the  $ ENTRY  prevents  the  subroutine  from 
being  considered  to  be  the  driver. 

3.  The  source  code  of  the  driver  and  subroutine  show  the  pass- 
ing of  various  types  of  data  back  and  forth  between  the  two 
routines:  alphabetic,  special  character,  and  numeric.  The 
numeric  portion  (IC)  is  modified  in  FORTRAN  and  returned  to  the 
COBOL  driver.  The  concept  of  CPASSF  is  to  use  FORTRAN  to  do 
the  math,  and  let  COBOL  do  the  file/record  manipulation. 

4.  The  last  item  is  the  output  of  the  COBOL  program  before  and 
after  the  CALL  to  the  FORTRAN  subroutine. 
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SOURCE  LISTING 


0000  1 
0000  2 
00  00  3 
00004 
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00  00  9 
00010 
00011 
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00014 
OOP  15 
00016 
00017 

oooia 

00019 

00020 
00021 
00022 


IDENTIFICATION  DIVISION.  * '*■ 

PROGRAM-ID.  CPASSF.  -<  ' 

AUTHOR. 

INSTALLATION.  HQ-SAC- AOWATfl. 

DATE-COMPILED.  79-02-16 
SECURITY.  UNCLASSIFIED. 

REMARKS.  THIS  PROGRAM  PASSES  DIFFERENT  TYPES  OF  OATA  TO  A 
FORTRAN  SUBROUTINE.  THERE  IT  IS  MODIFIED  ANO  PASSED  BACK 
• TO  THE  CCBUL  MAIN  PROGRAM. 

ENVIRONMENT  DIVISION. 

CONFIGURATION  SECTION. 

SOURCE-COMPUTER.  6000  WITH  EIS. 

OBJECT-COMPUTER.  6000  HI TH  EIS. 

INPUT-OUTPUT  SECTION. 

FIhE-CONTROL. 

SELECT  PRTOUT  ASSIGN  TO  OT  FOR  LISTING. 

I-O-CONTROL . ' ; • 

APPcY  STANOARO  ON  PRTOUT. 

DATA  DIVISION. 

FILE  section. 

FO  PRTOUT  LABEL  RECORO  STANOARO. 
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IMAGE 
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VALUE  2594. 
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TEST-INFO. 
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03 
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•toil 

03 
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X. 
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PHONE 

PIC 

9(4)  . 

PRUL  fOURE  DIVISION. 

100-OPEN-THE-FILES. 

OPEN  OUTPUT  PRTOUT. 

200- START. 

MOVE  "INITIAL  VALUES  FROM  COBOL  WJRKING  STORAGE." 

YU  IMAGE. 

«»ITE  IMAGE  AFTER  ADVANCING  TO  TOP. 

MOVE  AA  TO  NAME. 

40 «C  AA  Tu  DASH. 

•O  *f  1C  TO  PHONE. 

*a  VALUES  PRESENT  AT  START  OF  PROGRAN  (COBOl). 
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re  SOURCE  LISTING 
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00  065 
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WRITE  IMAGE  FROM  TEST- INF U AFTER  2. 

DISPLAY  -CHECK  4“. 

CLOSE  PRTOUT. 

•CALL  A FORTRAN  SUBROUTINE  AND  MODIFY  THE  DATA. 

CALL  F0RTS8  USING  AA.  AB»  IC. 

OPEN  OUTPUT  PRTOUT. 

HOVE  “FOLLOW  UP  VALUES  RETURNEO  FROM  FORTRAN-  TO  IMAGE. 
WRITE  IMAGE  AFTER  2. 

•SHOW  OATA  HAS  BEEN  CHANGEO  AND  PROPER. V RETURNEO  TO  COBOL. 

HOVE  AA  TO  NAME. 

HOVE  AB  TO  DASH. 

HOVE  IC  TO  PHONE. 

WRITE  IMAGE  FROM  TEST- INFO  AFTER  1. 

300-CLOSE. 

CLOSE  PRTOUT. 

STOP  RUN. 


•••••  THE  ABOVE  LISTING  CONTAINS  000  ERROR  MESSAGES  ***** 

•••  THE  ABOVE  LISTING  CONTAINS  000  WARNING  MESSAGES  *** 

• THE  ABOVE  LISTING  CONTAINS  000  EFFICIENCY  MESSAGES  * 

COMPILATION  TIME  (HlN)t  ELAP  CLOCK:  000.87  PR0C=  000.01 

00001  OVERFLOW  RE  AOS  00000  OVERFLOW  WRITES  23656  WORDS  MEMORY  USED  C 


, *fHIS  Lii 

12  02-16-79  20.082 

1 SUBROUTINE  F0RTS8 (AA,A8tICI 

2 0 INC  REHEN  f THE  INTEGER  BY  1 ANO  RETURN  IT  TO  COBOL. 


5 WRI  TE  (6 1 100) 

6 100  FORMAT  <**  FORTRAN  ENTERED*** 

8 RETURN 

9 ENO 
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ATTACHMENT  8 


1.  This  attachment  contains  a sample  listing  of  the  Honeywell 
JCL  necessary  to  compile  a Honeywell  COBOL  driver  and  FORTRAN 
subroutine.  Also  included  is  the  source  code  listing  and  pro- 
gram execution. 

2.  Attachment  8 is  similar  to  Attachment  6 with  two  exceptions. 
The  first  is  the  need  for  the  $ ENTRY,  as  the  COBOL  driver  is 
loaded  following  the  FORTRAN  subroutine.  The  second  is  in  the 
source  code. 

3.  Like  Attachment  6,  here,  the  COBOL  driver  passes  a table  to 
the  FORTRAN  subroutine.  The  major  difference  in  the  source  code 
is  the  record  length.  In  Attachment  6,  one  additional  character 
was  read  in;  included  in  each  record,  making  each  record  one  full 
computer  word  long.  In  Attachment  8,  it  is  assumed  the  record 
length  cannot  be  increased,  and  therefore,  must  be  dealt  with 

in  the  FORTRAN  subroutine  as  it  stands:  5 characters  per  record. 
This  test  program  illustrates  how  the  use  of  the  DECODE  statement 
in  FORTRAN  helps  to  keep  separate  elements  separate,  although  each 
element  is  less  than  a full  word  in  length. 


4.  The  last  items  are  the  printed  output  of  the  two  routines. 
Compare  them  to  those  of  Attachment  6. 
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coiol 

®LT  # 
C00J1 

ana**? 

00013 

11004' 

nflnj5 

11006 

uial* 

09a**8 

1*1009 

000111 


TRrNT  IF1CATI0K  CTVlSYON. 

FROG^AN-ir.  r4R*>F. 

AUTHOR. 

IN*TALLAT  TUP.  HTJ.  STT/1  CWaTi 
CAT- TO  NP  71  EC.  79-C7-12 
SECURITY.  UNCLBSSIFtE'*. 

REHflRkS.  thj  COEOL  FRCGMM  CFEATES  AN  «F’AY  ( TAPLE  ) AND 
• PASSES  IT  TO  A FORTRAN  SMERCUTIKE  ANC  «ACK. 


•*0011 

tNtf T° CNHt KT  DIVISION. 

00912 

CCNFI  P*RATI  CN  SFCITON. 

10013 

SOUQC  E- COULTER  . ei«9  WI’H 

ET*. 

**0  914 

OBJECT- COULTER.  FIFO  WITH 

ET 

S. 

00015 

INPUT -OUTPUT  SECTION. 

**0016 

* FILE  COVTPUl. 

. **001T 

5 Fl  F**T  FFT**uT  ASSTGN  TC 

C* 

FCR  LIST* NO  • 

90  OH 

S eL  PC  T Caro  IN  asEim  TO 

CT 

FOR  C*FrS  • 

ri«iq 

I-3-C  CNTROL  • 

”00?1 

APPL7  STA*0  9R0  ON  F^TCHT 

• 

1 

00021 

* F° LV  PTARDARC  ON  CftPC^N 

' • 

**0022 

nvT^TTN . 

"U**?3 

File  'ECTION. 

10024 

FO  PR  TOUT  LABEL  RECORJS  rTANr  a*’*’  . 

0J125 

11  T HAG,r 

FT**  9(1321. 

F9026 

FO  CA’OIN  LABEL  RECoROS  ST«NC*itO. 

0P927 

31  TEST-OaT«. 

10079 

13  INFO 

FTC  YIE1. 

10121 

3 3 FI  LL  Fn 

FIC  v (7E  J . 

P0P31 

KU  PN*  S I J KA  rt  ^ '"U  1 T H ^ • 

rooii 

’7  5 U3  -C 

FIC  9 VALUE 

00  932 

77  SL9-P 

FIC  S vatlJF 

80  9 33 

nroTA 

"1  COUNT  ER-i  ISFL  fv. 

01575 

3 3 SU°-  F-  CUT 

FI**  >S  VAtUr 

"0**76 

17  3U*»-t-CUT 

FIC  AO  VALLE 

10  "TT 

91  T EST-TA  PL  F. 

00099 

9 3 ROWS  rCCU  hS  3 M*ES. 

96939 

05  CBLll'P  FIC  Y(FJ 

Crci'FS  3 TIKES. 

90  0 41 

FROCE  TURP  0 IV  IS  TON. 

90041 

11 1-0  PEN-TH  E-  FT  LFS  • 

A-68 


n fioeRAw-ir.i 


TAMVF  CONFILEO  75-H-12  H.JtplS  6 ( f 0 CC«CL  «?  T C - € i 


• 

9B 142 
09  043 
Pfl«*<«k 

titon* 

99  046 

00  0^ 

« 4« 

50  049 

V 

JI051 

TP*051  — 
01)  **52 
01**3 
•**•*54 
09059 
"0f»96 
nitfT 

7 *0 

6.  ,59 
*90  60 

10061 

00962 

"y«ej 

0*0  M» 


TUBES 
99  966 
00067 
***•*69 
09  069 
99071 

60  O'M 
00  072 
99  073 
0ft"74 
•*•*75 
70076 
00  077 
•*•*79 
•♦'"Tq 


S t l1  r E L I S ^ T K r. 


OPEN  TN  FU  T CA  CC I N OUTFIT  FRTCUT. 
2y*-INlTl  AL  ]ZF-TH?-T'APIE. 

HCVE  TC9CL  ENTEREC**  ”*0  1**AGE. 

WHITE  I F AGE  ATTrw  njVTNrirr  TC  'rCF. 
251-REA  0-  IN  . 

T F SITE-*  *>  3 

GO  Tf  4«n-LI9T-TWF-TABL£, 

9 £A  C CApoIn  INTO  CALlCN  (SL3-R.  SLE-C* 


AT  END  GC  Aflff-LlST-THF-mt*. 

IT  SUP-9  * 7 

ABC  1 TO  SUO-G 
CONFUTE  *U9-P  = 1 
Gy  TC  25  0-REAC-IN 
ELS9  A CO  1 TO  9UB-C 
GO  tc  25*-9EAC-'rN. 

6TMT-L  1ST- TV E-TAEL E. 


P ERROR*  425-WRITE-TVE-ROF  VARYING  Sl’E-*  RRUN  1 9Y  1 
tN^Tt  SUE-9  > 3. 

IF  SUP- F > 3 GO  TO  T77-C7LI-FCRTF  fF-?lBRCUTIFE  • 
425-W  HTE-TN9-R'*W. 


P99F0RN  459  -W  RTT  E-THE-?  JlUNNS  VIRTING  9U*»-C  f RON  1 BY  1 
UNTin.  S*re-C  > t, 

4?  9-W  FI  tE  -t  ».E  -c  CL  U*  N « . 


FCVT  EUT-T  TO  SU«-P-mT. — 

HCVE  sue-c  TO  SUP-C-CUT, 

WHITE  IMG9  F9CM  CALuLT*  f 9LB-R ♦ SLE-O  A ptfi? 

ADVANCING  2 LINES. 

WTIIE  IH  GE  FRCN  COUNTER-**  TSRLA  Y. 

777-C  AL  L-FO fiT  Oft N-SL 9R0LTTNE. 

r LOSE  F FTTUI  r A9**IN. 

CALL  90RTSB  USING  TEST-TI9l9. 

OF-N  OLtput  p«TOLT. 

HCVE  “ Ncaot  REENTEREC"  TO  INAG9. 

WRITE  IN  ACE. 
e C 9 -'‘TOSC-TRT-F  TL  f S . 

P 10 SE  PRTCUT. 

599-S TOP. 

?T0P  fiin- 


I 


2-22 


iMj^e  = fcieic,  sctiuty  « * 02,  » report  coce  = c6,  reccru  count 
fvClMU  e-.iefTc 


t Itn  tPOVu  CHRLY 
CELTS  ECfiC  FOX 
GClF  HOTEL  IhCIS 


^ . . I - ^ 


ATTACHMENT  9 


This  attachment  contains  some  computer  listings  for  use 
with  the  program  ARRAY 1 in  Section  8. 

Figures  1 and  2 are  the  Honeywell  versions  of  ARRAY 1 . 

Figures  3 and  4 are  the  IBM  versions  of  ARRAY1. 

• Figures  5 and  6 demonstrate  the  effect  of  COBOL  synchron- 
ization. 


Figures  7 and  8 are  the  Honeywell  and  IBM  Job  Control 
Languages  for  these  jobs. 


AD-A070  959  STRATEGIC  AIR  COMMAND  OFFUTT  AFB  NE  F/G  9/2 

THE  INTERFACE  OF  COBOL  AND  FORTRAN  ON  THE  HONEYWELL  6080  ANO  IB— ETC (U) 
APR  79  D W LlNDt  R D GEER»  J W WHITE 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BUREAU  OF  STANDARDS -1963-^. 


» 


non 

QQni2 
caoi3 
"Oil  <4* 
0 J il  i 5 
C 


noo?i 

"Q<m 


ror>22 

“>  j 

Po"of<T 

01025 


00026 

M'ULZJL 
rn  c 28 

0"  J2R 


CCNFI CURA Tl (K  «CCII0*. 

05  JEf;f-CQwFC'T  £F  . fJO 0 WITw  £7*. 

I *44  4*  4 * *4  -**  '4*  44M4l*~*  *4  44*44*444*4444*  4* 4444444  * *<4  1 444  444  4 4*4  4 4 4 4 4~| 

CATA  rlVISICN. 

V c c KI  NG  -S  TO  » A GE  SECTION. 

77  FRST-ITEF  PICTURE  X(E1  USAGE  IS  •‘ISoiaY  VALLE  •,77ITe’K 


77  FILLeR  flFTUivE  i * XtET  VAtl’E  TS  SF^eS. 

SECCNU-1TEH  FICTLivE  I*  XI8T  VALLE  IS  “2NC  ITEF 


77  TVlCu-THF  ciCTUnE  IS  XsR>  vAcUc  i*  “«7 

FOURTH- IT th  PTCT  L°E  IS  *(«.)  AGE  4?  COMF-1  VALLt  15  77*7 


<11  TA9LF-0NE. 

0 2 IT  EM  "C  NE  PICTURE  IS  X C f ) USAGE  IS  TlSeLAY  VA  LIE  “A***- 


02  ITtM-TVO  PICTURE  TS  S<-»3)  CCFF  SUC  VALLE  TS  123. 

0 2 tTEF«TFREE  PICTURE  I*  S9<7)  CCFC-1  SYNC  VALUE  ▼ S 12  3 4 5. 

n 2 ITTH-FCUl?  PICTURE  S9fE>V9(Al  CCF-  F-2  S YNX  \ AL  le  IS  2*6  ■ . 
n 2 IT  FM  -F IV  E PICTURE  S9(MV9»2>  CC-F-2  *VNC  VAi.lt  IS  -122. ..1 


f FOCECURR  0 IV  IS  10  N . 


FfiPAGPlPH-l  . 

CALL  F3L81  USING  FMST-TTM#  SECCNC-ITZM.  THIRC-ITEM. 


F0URTH-4tFi1,  ITEf-CNP. 


STOP  pmN. 


J C j 20 

0 t02  1 


022 
0 u T 2 2 
02  * 


CC NT A IKS 
START*  IN 


SIARTS  IN 
SI/RTS  IN 


STARi*  IN 
iTARTS  IN 


A2  CF#FACTEKS 
UFA  FA  C T t R FCSITICN 


CHARACTER  fOSITTCN 
CHARACTER  fCSITICN 


C Fm  F6  c.  T fc  R FCSITICN 
CFARAC1ER  FualTICN 


MCRCS 

1 


£ 


TH  IS  l IS T U U K Cl 

▼9  ?3.'t6f  - ...  .. 


1 _ ___  3U9nOUTTNt  e-U91  CFim,  SIISH,  TaIE*,  ITEH4.  fERIT) 

•»"  ~ f'lMENSICK  AF°*V«7> 

3 OCMBLE  FPECIJION  S*U£__ ;._J 

4 WRITE  106,1*1  FITE  K • SI*e~P,  TTTfM»  TT  EM4,  BhFM(l),  «WRAT(2>, 

_5  * AFRflvm,  AnR  AY  C5 ).  AER  IY(7) 

b V(»il Tr  t ”6, 2 0' 

_7 10_  FORMAT  TAX,  A6,  6X  *_A0 * €X, A4,  EX,  I *,  //,  6*.  *C,  6X,  FB.2.  EX 

8 •Id,  6Xf  ni2.‘Y  6Y»  Ff.n' 

9  2P_*OR*«BT  (1H  , * EHC  Cc  FFC^RAMM 

1!)  oetipk 

U EKO 


03-22-73 

3NIJMC  8 3*635.  ACTIXTT^  < s 03,  , REFQR  T CCC*  « 06,  RECORD  COUNT  _ = 00  O.J  <3 4 

77ITEM 2NO  IT  f « #77 7777  

»K»AY 123.  CO 12345 <1.246SC  0 4 -123.0  1 

tNu  0*  PkCAR AM 


COROL 

alt  « 


S  0 U P „ E LISTING 


<30  001 
00002 
0000  3 
00004 
0000  5 
00006 
OQOOT 


EN  VI  RONMENT  DWlSION. 

configuration  section. 

OBJECT-CONFUTED.  6000  WITH  EiS.  r 

#*****«*##»#*»*»*#*»****»*»**»»*****»»»»»»»»»»»••»»*»»*»»»*»*»*»** 

"DATA  CIVISI ON.  

WuRKxNG-STGRAGE  SECTION. 

77  FIR ST-ITErt  ^IcTURE  IS  X(6)  USAGE  IS  OISPlAY  VALUE  "77ITEN".  " 
77  FxwLER  PICTURE  IS  X(6>  VALUE  IS  SPACES. 

77  SEOohD-ITE'1  FIwTURE  xS  X(8)  VAlUE  IS  *'2NO  *TEM".  

77  THIRD-ITEM  PICTURE  IS  a99X  VALUE  IS  “#77 

~77  FOURTH-ITEM  PICTURE  IS  9(4)  USAGE  IS  Co -IP- 1 VALUE  .S  "77771 

01  TABcE-oNE. 


00008 

0000  9 
00010 
00011' 

00012 
TWO  13 

00014 

00015 

00016 
00017 

0001  8 

“W0T9 

00020 


IOEnTxF*lATION  DIVISION. 
PRuGRAM-ID.  ARRAY1. 
AUTHOR. 

INSTALLATION.  WWMCCS. 
DATE-WRITTEN.  79-02-12. 
UAT  E-CONP I LED . 79-02-15 
— SECURITY,  UNCLASSIFIED. 


00021  02  ITEM-CNE  FIoTURE  *S  X(6)  USAGE  IS  DISPLAY  VALUE  "ARRAY  "i " 

00022  02  ITEN-TWO  PICTURE  IS  S9(3>  COUP  SYNC  VALUE  IS  123. 

00023  02  xTEM-TPREE  PICTURE  IS  S9<7>  Coi?-l  SYNC  VAlUE  IS  12345. 

00024  02  ITE9-FJUR  PICTURE  S9(5)V9(4>  CDMP-2  SYn*  VALUE  .S  2468.5. 

'007325 02  ITEM-FIVE  PICTURE  S9(4)V9(2)  COMr-2  SYNC  VALUE  IS*  - 123.  01 1 

00026  *♦****»*#♦***»**♦**♦ ********** ***♦*♦ «*»•**«»•**** *»»**»»*»*» *** 

00027  PROCEDURE  Di VI  SI  ONI  — 

00028  PARAGRArH-1. 

00029  ~ CALL  FSUB1  USInG  FIRST-ITEM,  SECOVD-IT  E.1 , THxRO-ITET, 

00030  FuURTl — x TErl,  TA3.E-0NE. 


“00071  STOP*  run; 


1 SUBROUTINE  FSU91  (FiTEM,  SITEM,  TITEm,  ITEM4,“  ARRAY ) ' 

2 OxMENSION  ARRAY  ( 7 ) 

3"  DOUBLE  PREuISION  SITEM 

4 WRITE  (06,10)  FITEM,  SITEM,  TITEM,  ITEM4 , ARRAY  ( 1 ) ♦ ARRAY  (2>  » 

“5T  * ARRA Y(3 ) "A RR AY  (5 ) , ARRATC7 ) 

6 WRITE  (06,20) 

7 ' 10  FORMAT  (6X,  A6,  6a,“A8,  6Y,  A4,  6X,“1 4,  //,^6Tr  A6,6X,F8.2,6)i 

8 *18,  6X»  D12.4,  6X , -8.2) 

9 20  FORMAT  (1H  ,'ENO  OFPRJSRArf'F 

10  RETURN 

11  ' END  


Dl  ARRAY  123.00  12345  " ~ 0.24690  04  T~ 

emo  of  PR^SRAM 


FIGURE  2 


A- 7 6 


-.v 


•-  - • 


* / • V 


« tire  CwOJk 


iiCnuti  i 
002/2 
00O0  -> 
00-6*1-.- 
00.40  J 
00d0u 
00<mV 
00006 
00J0V 
00tLLJL 


iJc.*  l il;  ik.  Al  il-N  i lVoioi). 

FivuuR'AK— lu»  Ak.K>tYi.  

1 Mo-k  • 


L>a1  r ~m<  i I T ^i\i» 

UAT  £— i.J i\P  1 Li  2 • 2x,x9 7i#. 

6LCLr\JT  Y.  oiiC  LA661F1  £ii» 

tJYVlik  JKAtikI  

CUlt  t 1 1-» Cam  T I L-M  3 L 2 » i i.  \ . 


0061a  UAIa  Jli'iixL’N* 

00  J 12 riUK/.i :»0=uJ  L' RaoL.  - lihi.  T 1 iJN.*. 

00016  77  r-I<\6T-2  ItM  hCTUm  16  Ato)  USAGE  IS  ClSPLAr  VhLUl  "77IT£.Kh. 

B2£Hit 77__.stU-liC.-lii_A  FxLiurj: IS  Al  

000 i>  77  ihlKL-I Yirt  PiLYCRt  is  X<»9X  VAclit  Iu  **77  *. 

LI EilU-Jux--.  IEA  gJt.IU.i  i ll  St  sl—USACr  j.6  CLinP  VALUE  IS  77?7-> 


00617 
000  As- 
000X9 
i3.it  2 A 


01  T*.i4t_L  — ONE  . 

IL2 i I tft-r-Ux  i 


-I'it.TUKr  13-JU61  XlSAtac  ■ 1 S UiSPLAY.--\L*LU£--*-ARRAY- 


0060  i 
060^ 


04L  f-lLLtrR  ficiukc  XX. 

JL2. F111.cn  rAui ukt — it 9_ u lIAP.  VxLUfc  ItRL. 


0 2 I T *_<•>— T Wit  PicTiiKE 
r LT  '-arliiAf  r t*  1 C.1  .;k.- 


06026 
00  '4_ 
0k  > 
j 0Y93*lo _ 

00027 

0Uii^a- 

00029 


16  69  IS)  CUM?  SYRC  VALUE 
-X^  .iUUi  L~h*>  SVIW-.2AUI  2 


11 


♦ 1 *-  6 . 
■22-64  ti< 


02  llt-WiicK  LUiiP-2  61h,t  VALUE  16 
-22 U-hrUtfL.Cb^-.  XV  » VAt,:--  , s 


PRULEuCRfc 

i-^L. 


i.nOlM:*.;* 


CALL  *FS  USa*  USING  Fi«ST-lTEM,  SECOND— IT  EM*  lHIRJ-lTtrt, 
— E21i.llHru.TEJl>  .TArtL.  -jUj  


SfUt'  RjK. 


RELEASE  2 .6 


FSUsl 


•3  AT  r = 


7v/5Z 


16/26/62 


UwbKilolirlt  FSuEl  iFlTEM,  61  f-.M,  T1TE.4,  ITEM4,  ARRAY  1 
JUttLi'illj-.-  Ai-^AJUil 


UOC’sLt  rScLISIUN  PITER,  -si  TfcM 
-Ifll  Lki. K*L-Hx:‘t‘i 


RKIIc  (/>o,2/)  FIT-4,  LITER,  TITER,  ITER4,  ARXAYIl),  ARRAY(x), 
-* AnivAY  l j ) t^KKAYl*  L,Ji^AAY.l^)  > JUUEAYYY  I__ 


hRil t (^Of ti ) 

-L0 — f LlflAl — ( jX  ».(.  i>i.'i  mi  ,t»A  > A-*,oX  > 14  > //, — r>A,  a4 >42, — »»Y,  i4tf.X', 
*l(.i  oX  | oX , h»>l  ) 

20 -Fill/iA T t^n  . ■hij  Ql-  »l»-.f.K:>4M 


Rif CRN 
-Lniu 


771TE* 


__AtUAY_ 


2.NJ  ITlH 
_x2J 


....  <07— 


-L2U46- 


.7771 

J .2«»E9Et04 


EIW  2F  PKDwRAM 
A.-r77 


FIGURE  3 


PP  37-.0-CB1  RELEASE  2.2  JULY  2*,  1978 


IBM  OS/VS  LOBQL 


17.28.2S 


FEB  20*1979 


00001 

00002 

00/03 

00004 

00003 

0000b 

00007 

000  0 O 

00*09 
0001J 
000  li 
00012 
00813 

00014 

00015 

00016 
00017 
00016 
00019 
00/  20 
00021 
00022 

00023 

00024 
00825 
00026 
00027 
08023 
00829 


IDENTIFICATION  DIVISION.  

PROGRAM-ID.  ARRAY 1. 

AUTHOR.  

INSTALLATION.  TkICOMS. 

DATE-WRITTEN.  

DAT E-COMPILEQ • FEB  20,1979. 

SECURITY.  UNCLASSIFIED.  r ..  _ 

ENVIRONMENT  DIVISION. 

configuration  section..  

OBJECT-COMPUTER.  IBM-370-3033. 

DATA  DIVISION.  

WORKING-STORAGE  SECTION. 

77  FIRST-ITEM  PICTURE  IS  X(6>  USAGE  IS  DISPLAY  VALUE  "77ITEM". 
77  SECOND-ITEM  PICTURE  IS  X(8I  VALUE  IS  "2ND  ITEM". 

77.  THIRD-ITEM  PICTURE  IS  X99X  VALUE  .IS  J*#77.*% . 

77  FOURTH-ITEM  PICTURE  IS  9(*.l  USAGE  IS  COMP  VALUE  IS  7777. 

01  TABLE-ONE.  

02  ITEM-ONE  PICTURE  IS  XI61  USAGE  IS  DISPLAY  VALUE  "ARRAY 

02  FILLER  PICTURE  XX.  

02  FILLER  PICTURE  99  COMP  VALUE  ZERO. 

02  ITEM-TWO  PICTURE  IS  S9(3I  cCMP  SYNC  VALUE  IS  *123. 

02  ITEM-THREE  PICTURE  IS  9131  CORP  SYNC  VALUE  IS  12343. 

02  ITEM-FOUR  COMP-2  SYNC  VALUE  IS  2. 4635E+3. 

02  ITEM-FIVE  euMP-I  SYNC  VALUE  IS  -1.2301E*2. 

PROCEDURE  DIVISION. 

PARAGRAPH-1. 

CALL.  "FSUbl".USlN6_  FIRST-ITEM*  SECOND-rlTEM,  THIRD— ITEM, 

FOURTH-ITEM,  ITEM-ONE. 

STOP  RUN.  _ 


— RELEASE.  2.0 FSU31 DATE  = 79051_ 17/28/31  

SUBROUTINE  FSUBl_lF.mM,_SIIEM*_T.lJ.EM,_ITEM4t_ARRAY> 

DIMENSION  ARRAY <71 

—  DOUBLE  PRECISION  FIT  EM, SIT  EM 

INTEGER*/  ITEM4 

—  WRITE  (06,101  F1TEM,  S1TEM,  T1TEM,  ITEM4,  ARRAY ( 1) , ARRAY ( 2) • - 

* ARRAY  ( 3 1 .ARRAY (•*>  , ARRAY  ( 31 , ARRAY  (71 

WRITE  (0o,22  ) - 

10  FORMAT  ( oX , A6 ,oX , Ad ,6X , A4 ,6X , 1 4 ,// , 6X.A4.A2,  6X.I4.6X, 

*16.  6X,  012.4,  6X  , F8.2) 

20  FORMAT  (1H  , *ENU  OF  PROGRAM* I 

RETURN 

ENO 


771TEM  2ND  ITEM  #77  7777 


* 


ARRAY 

ENO  OF  PROGRAM 

123 

12343  0.2469E+04 

. -PTPTIOP  A - . 

-123.01  

_ i; 

A-78 

r IbUKCj  4 • 

- ' 

m 

— : — £ — 

- A • \rL+-  ,-3  T ‘ ''  ‘ * . ~ Tj* 

tfze,  i 
<aen2 

69Zfj~ 

iifut  ' 
eeve(> 
vzetn 
00ef>E_ 
Bite  9 
60 210_ 
iFfi 
e*ti? 
26612 
eee\A 
6i*iT 
66i  16 

eeer?  " 

eeeie 

*ecic 

czrzr- 

966  22 

nvry- 

tt 

ee^r~ 

66676 

?nrr~ 

6912b 


MA«  !<S,lo-«» 


iientificaticn  division.  - * 

program-id.  array!.  * 

AUTHOR. 

INSTA  LLA"?  ION.  TRICHMS. 

£5i T E- v:f.  IT'TEN.  ” “ ~~ 

C«*T=-rr"1P  lLcr.  . MAR  ! fc  » ■ 070 . 

SECURITY.  UNCLASSIFIED. 

ENVIP.ONM  ENT  DIVISION. 

CONFIGURATION  S “CTl'nN.  * " ' 

OP  J ?C  7-C  ON  PUT  f R • I C M-  3 7 ;•  -3<?  2 ? . 

DAT/'  CVviSlPf..  ~ 

WORM  NC-S  TOR  A Gf  S<=CTIGN. 

11  F 1 1 ST  - IT  (:  M PICTURE  IS  X(6)  US  A PR  IS  DISPLAY  VALUE  "TTITfM' 
7“  SCCCNU-ITF:  0 IC, TL’Rr  IS  Xlp>  VALUE  IS  "2ND  ITf**". 

77  THIRO-ITF'1  PICTURE  I<  XO°  VALUe  TS  M077».  >fT6  S/NCH 
77  FOURTH-ITEM  PICTUKt  IS  <?(i»  USA GF  IS  COMP^ALUr  IS  7777. 


“t  •*»  " 

61  IT*:M-PNr-  PICTURC  IS  XfM  USAGE  TS  DISPLAY  VALUC 

— F I L L c R PICTURE  XX.  - - 

•*2  FILLER  PICTURE  90  COMP  VALUE  7FP0. 

V2~  I7rM-TwO  ~ taCTlJRR  IS  S«I?J  COMP  SYNC  VALUE' 1ST  ♦ l 
£2  IT^m-Tu.RCC-  PICTUR3  IS  <>(*)  rpMp  jvNC  VALUE  IS  11 
b.T  IT^M-CP'JTXCMP-:  SYNC  VALUr‘  TS  ~ 77*695 T*3'. 

02  IT-M-FIVH  CCKP-!  SYNC  VALUF  IS  -1.23ME+2. 

fRCCeTOR  C'X  1 VISION 

PAR  AGRA  DM— I . 

calx  -*r  s a*  r"*"unwG~c i rsy^t  t pm,- second-ittm^th  i pc-^t 

FQURTH-ITcm.  table-one. 


5DI t-Uitin snp, : (fitem,  pttcm,  nTsFrrTnr^M-T  mxvT 

DOUr  LE  PRECISION  FITem.SITF** 

DIMENSION  ARRAY(7)tFITEf.i(TJ 

INT  FOER*?  I TS  MA 

feu I VALENCE  ( X ARRAY  • I A PR AY) 

XARRAY  = AR  R A Y( 3 ) 

i ap.raY  = iarray  v : 

WRIT-  ( !6,K  IFITEMd  |*FIT«-u(2l*FITEMC3)  » 

*SITCm»TI7  3M»  TTFMA,  A FRA Y ( 1 ) , ARRAYS)  ♦ 

* ARRAY!?)* ARRAY! A ) ♦ A RRA Y ! 5 ) , ARRAY (7 ) 

WRITE  f06,3i»  I ARRAY*"’ 

WRITE  (K6t2*) 

T j Format  '(t,xt3AS.<sx »Al?tf/X»A-,6Y,iA,7/,  6X,AitA2,  6x,i.',6x, 

*ie,  fcx,  D12.**  fcx,  pp.p) 

2^  Format  (Th  , »=no  op  program*)  - 

33  FORMAT  (fcX* • I ARRAY  IS  *»  IE) 

RETURN 

END 


••ARRAY  " 


2 3.  ~ 
3A5. 
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IBM  OS/ VS  COBOL 


-1 


12.23.36 


MAR  19*1979 


* 


t’0*l 

0*03 

0rr0-* 

0003 

te0d7 
J000O — 
90009 

9001-0 

30011 
00312 
00013 
0001* — 
0001S 

*0-*lO 

00ol2 
00V*  16  - 
00019 
0fc-  20— 

000  2i. 

-0f  ’ 

0 0 *• «.  ■> 
-0002-*—- 
00003 
-000  2t» — 
00027 

-00028 

00C29 


IDENTIFICATION  DIVISION. 

- PROGRAM— ID.  ARRAY1. 

AUTHOR. 

mSlALL^l  1UN.  TR1CQMS. - 

DATE— WaI ITEM. 

DATE-COMPILED.  MAk  l9t1979. 

SbCuRlT  Y . UNCLASSIFIED. 

ENVIRONMENT  DIVISION.  

CONFIGURATION  section. 

OBJfctT— COMP bTfcR.- IBM-37 a-30 33.  

DATA  DIVISION. 

WORK  I NO— STORAGE-  SECTION.  

77  FIRST— ITtK  PICTURE  IS  XI6)  USAGE  IS  DISPLAY  VALUE  "771T&M". 

77 — StCONO— ITEM  PICTURE  IS  XI 6 ) VALUE  IS  "2ND  ITEM". 

77  THIRD— 1TLM  PICTURE  IS  X99  VALUE  IS  "*77".  ^ 

.77 — FOURTH— IT  EM— PICTURE  IS  9!4)-USAG&  IS  COMP-SYNC- VALUE-  I S 7771 

01  TAi>Lt— ONE. 

02  -ITcM-UNE  PICTURE  IS  XI6»  USAGE  IS  DISPLAY  VALUE  "ARRAY  * 
02  FILLER  PICTURE  XX. 

02  FILLER  PICTURE  99  COMP  VALUE  ZERO.  

02  I TEfv-T  WO  PICTURE  IS  S9I3)  COMP  SYNC  VALUE  IS  *123. 

£2 — ITEM— ThRcE  PICTURE  IS  9IS)  COMP  SYNC  VALUE  IS  12 ->4*.  — 

02  ITEM-FOUR  cOF.P-2  SYNC  VALUE  IS  2.46 oSE*3. 

C2--  -ITc.M— FIVE  CUM  P-1  SYNC  VALUE  -IS  — k.23Blc*2. 

PROCEDURE  DIVISION. 

PAR AGRA PH-1. 

CALL  "FSUdl"  USING  FIRST-ITEM,  SECOND-ITEM,  THIRD-ITEM, 

FOURTH— ITEM, — T ABLE— ONE. 

STOP  RUN. 


RELEASE  2.2 


FSUB1 


DATE  * 79076 


SUBROUTINE  FSUbI  (FIT  EM,  SITrM,  T1TEM*  1TEM4,  ARRAY) 

DOUBLE  - PREC  i S I UN-FI 1 EM , SI Tfc M 

U1MIMS10N  ARRAY 1 7 ) , FI  IEMIS  ) 

INI EGtR*2  ITEM* — 

EQUIVALENCE  (XaRKAY  * I ARRAY ) 

X ARRAY  = ARRAY  1 3>  

I ARRAY  - 1ARRAY  ♦ 1 

WRITE  - 1 06, 10 ) FI TEHI 11 ,F1TEMI 2 1 .FTTEMI3  ) , 

♦S1TLM.TIT  EM,  ITEM-*,  ARRAY  1 1 ) , ARRAY!  2 ) * 

0 ARRAY (3  ) .ARRAY i*» ) , AkRaYIS)  , ARRAY! 7 ) 

WRITE  1*6,30  1 I ARRAY 

WRITE  If 6,20 i 

10  FORMAT  loX,3*e(6X,AU,6A,A4v<>A,14*//,  6X,A4,A2,  6X.14.6X, 

♦) O ,-»X rl>12 * 4 ,~oX  , F3.2  I — — — 

— 20  FORMAT  I1H  , »ENO  OF  PROGRAM*) 

3M  FORMAT  loX,  *1  ARRAY  IS  •*  IS)  — 

... ewJUR- - FIGURE  6 (1  of  2) , 
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¥ 


0001 

% 

SnUM  d 

46617 

0002 

$ — 

IOEmT 

0003 

$$ 

USERID 

“OffOiT 

* 

oP  Ti 0m 

T0RTRA4 

0005 

$ 

OPTION 

COBOL 

'00  06 

At 

COBOL 

E*  SF » wQElK.lSTOU  t 0n6 

0007 

At 

FORTY 

aREF,mAP,lSTOU 

0008 

A$ 

EXECUTE 

0009 

t 

SYSOUT 

06 

nmr 

$ 

EnO J 06 

” ‘ 

total  card 

COUNT  THIS  JOB  = 000052 

It 

* SCPEOUwEu 

. A02  F = 02 

! U=  06 

M*T  = 000480 

7 

* AwTY-01 

$CARO  *0006 

C03tsL 

02/15/79 

SW=0 11300 00 oouo 

o i 

* NORMAL 

TERMxhATION 

AT  1 

002477  1=4020  SW= 0 110 1 0 0 0 0 0 00 

i 

START 

17.904 

LINES 

317 

FROG  0.0004 

I/O 

0.001 

- i 

STOP 

17.90  6 

wlMiT 

20000 

LIMIT  0.1500 

LIMIT 

■ 

SWAP 

0.000 

c 

lA^SE 

" 0.0  0 < FC  D 

type 

BUSY 

IP/AT  FP  / RT 

_TS7#C~H37fE 

S*  R 

0131 

♦ 

195 

0 0 

T 

- 2 

1 

D*  R 

0191 

* 

91 

0 1 

1 

1 

c 

P* 

SYOUT 

*3  R 

0191 

♦ 

312 

0 0 

180 

180: 

*2  R 

0191 

* 

19 

0 - - “ O' 

12 

12 

* 

G*  R 

D 19 1 

♦ 

160 

0 5 

48 

48 

ij 

K* 

SY  JUT 

, 

C* 

SY  jUT 

• 

♦J7R 

0191 

♦ 

366 

ff  IT 

'43 

43 

i f ; 

B*  S 

0191 

♦ 

8 

0 1 

24 

24 

( , LIST  317  LINES 


FORTY 

AT 

* ACTY-02  SCARO  #0007 
* NORMAL  TERMINATION 

0 2/15/  79  SW=3 11 256000000' 

005152  1 =4060  SW=31125600 0000 

START  18.103 

LINES 

211 

PROC  0.0001  */•> 

0.  000 

T>TJP  18.10  LIMIT  12000 LIMIT'  0.0500  XlMlT 

SWAP  0.000 


tAFSE  "0.00  1 FC  □ TYPE BUSY IP/AT  — FPVXT IS/#C-MS/#E 

B*~5  mn 26 1 3 ZS 2 V 

S*  R 0191  * 169  0 0 1 1 

P* SYCUT  

*1  R U 19 1 * 83  0 0 46  48 

X*  SYJUT  

C*  SY  *>UT 


/ I 1ST  iiiJPC 


I 


2 

3 

//CuoOL 

AXVSCOttC 

XX  COPY 

M* 

*«• 

Mt 

EXEC  VSCCBC.PARN.COo- ‘QUOTE* 

PROC  Cl=Cf 33,CR=192X.  

-•SYSl.CnPYLifc*,COPYl*«SYSl.tOPYLl&.» 

VS/CGedV  COMPILER  PROGRAM  PRODUCT 

• * 

IBM  PP  5 #43— C6  1 RELEASE  2.2  R/PTF  6 

•r 

XXCCD 

EXEC  PGM-IKFCBL00 ,ktG 10S=tCR . T 1ME=CCT 

3 

AXSTEPLId 

D„  DSA-SYSl.PG»«PkQO.VSCO&CL,OISP  = SHA 

o 

xxsyslib 

DC  DSM=CCCPV,DiSP=SMP 

7 

XX 

DD  DSM=CCiiPYl,OJSP=SMK 

3 XXSVSLlh  uD  D£tt=£CLDADS£T,blSP=IMLO,PASS>  ,UN1T=SYS0A, 


XX  £PAC£=l3233»*>7,9>,RLS£).0Cb=SLXSII£^3^23 


9 

10 

XXSYSPRlKT 

XXSYSbwU*? 

DO  SYS3UT-A 

DO  SYSGoT-A 

11 

XXSYSuTl 

XX 

XXSYSCT2 

_ XX 

DD  OSM-LLSYSUTl,  SPACc=l 4t>2 , ( 13 2*. . 120 » 1 ( 
l£sl  T =V1UDS 

12 

DD  DSM=C£ SYSo 12 » SP ADE  = ( , (1324,120  ) )» 

iMii-vioas 

13 

XXSYSUTj 

DD  05W=LCSY3UT3»SPAC£=(  <**>*  ,11 324, 120  ) 1 , 

XX 

us  n -vnos 

1<* 

XXSYSUT4 

DL  DSN=LCSVSJT4,5FACc=I4»£, (1224,120  1), 

XX 

l*jt=yidos 

15 

//CGb.SYSI?*  DO  * 

16  . 

//FOR  TRAM 

EXEC  f TG1CLG *P ARM .FORT =• NO LIST* 

17 

XXFT61CL& 

PRGC  CT=3033,CR-156A,lT=0232,LR=156«, 



XX 

GT=0?30,»R=1S*A, 

XX  LlN*  = *SYSl.?GM?RuO.FlATLlB»  • 

13 1_  XXFGfiT  EXEC  PSn=IGIFCRT,REGJO;*=CCR,IIME=£CT 


19 

XASYSLIM 

DD 

OSS=t£LOAJS£T,DISP=tnCO,PASS),UYlT=SYSOA, 

XX 

SPACE-13230, l5J,9>,kLSE),DC&=3LKSI2E*3204 

23 

XXSYSPRINT 

DD 

SYSCUT = A 

21 

XXSYSTEKH 

00 

SYSDDT=A 

22 

XXS  YSlxllPtP 

DD 

SYSCUT =A 

23 

//FORT-SYS1N  DD  * 

24 

2/SYSIN 

DO  * GENERATED  STATEMENT 

25 

XXLXEO 

EXEC  PG*=1£ml ,REGI3fe=CLfcvTlMS=GLT,C0MDs(5tLTt FORT) , 

XX 

P ARM=KAP 

26 

XXSYSLlB 

00 

«JSM=SYSl.P&MPRGO.F  DRTLl  b,  D1SP— S+4R 

27 

XX 

OD 

OSM^SYS1.PG.MPROD.VSC03LI3,01SP=SHR 

28 

XX 

DD 

DSM— CLIMK,D1SP  = SHR 

29 

XXSYSLIN 

DD 

DS N^C£ LOAD S E I , D1 S P= ( OLD , Cc L£ TE » 

3B 

XX 

DD 

DON  A ME -SYS  It* 

31 

XXSYSlMO^ 

DD 

DSN=-Cfc&USET  ( GO ) ,D1  SP  = I MOD, PASS ) , UMI  T=SYSDA  , 

XX 

SPACE— (6144,  (7t>,3,l)  ) 

32 

XXSYSPRINT 

DD 

SYSDtlT— A 

33 

XXSYSUTi 

DD 

CSN=-C£SYSgT  1 ,UM  T=VI  OCS  , 

XX 

SPACE— 1 1*24, 1200,11 ) > 

34 

XXGO 

EXEC  PGM=*.1XED.  SYStMLD  ,REG10fl=«.GR,  TIME=4GT  , 

XX 

ClPtDMI9,LT,L<ED),l5,LT  ,FOKT  ) ) 

35 

XXSIEPL1B 

DG 

uSN=SYS1.PGHPR0D.FGRTLIB»D1SP=SmR 

3o 

XXf T35F331 

DD 

DDNAKC-SYS  IN 

37 

XXFI26FP01 

DD 

srso jt-a 

36 

XXFT27F361 

DD 

SYSCUT =b 

^37 

XXGO  SET 

DD 

DSM=  LCGOSE  T , vMlT=SYS3A, SPACE— ( T RA, 2 £,D i SP - (KJG, DELETE 

// 
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ATTACHMENT  10 


This  attachment  includes  the  Honeywell  and  IBM  JCL  and 
the  COBOL  and  FORTRAN  programs  discussed  in  paragraph 


I 


//  V'u  "I 

XXV‘  tl  I ( t"V  » \ \ > v ,f  \y?  , VK  , 

* » v »* -v» ' ,u 'v vi  in*  n ti®vu»nvM.rr*vi  in » 

*>** 

• VV/vH't'l  tMMVIHtfT 

*4* 

>*»  u«m  *tp  * f,  m i x a xn  #•»  w/i»r*  ♦> 

»*% 

XXU  * M'  T 

hNMtllH  i.U  f ‘iN»: 

xx*vxUf  hi  « n*  mmviMi  m-smh 

H t " l'lN»iCO*Vi  iBUMIHI 

mavmin  i •*  • • n*m  i n*i'v  i»rtM#M**w»*»MM«iiMt«%vwNH 

x > *myr  n*'0'*nittiimtM 

XX  *vmh  i NT  I A * vm  UT»* 

V*<*y‘iif » ih«*  U'  1 I » frM 


n 

xxvvxuTa 

M 

xysvmii  - 
>> 

XV  v YV\tU 
MV 

/ /v  »'♦'  * VXM  N 
//  IXC  f 
MMmu 
*> 


I , ' N|  <■  M * Y M*  I i * u (' A ( •-  • ( #fif  , f | ><  , l #* «*  | |« 

m,n  - '*MH» 

i*i'  viorti 

I t r.N-M.XVXin:MXl>ACf»UM»  lU^A,  tp*H. 

umi  -vniuy 

' I'  l ' N*<M  SVfcVlW  ♦'  >*AC»*UM*  tm**  |f«|  I , 

h'1  ) -vinn* 

N * U * 

i ]W\\  It  »UM,t  UHTv*Nm  1*1  * 

MHIX  I U 

I Im‘.  w ,i  Ur  ;»  c H, 


XY  l | N K » • 1 v «‘M»M>'>  (U.MJKTI  in* 

x X I* ' I i *1  pr.M»|ftIM«lfHKft|pN»f^»*T!MP»*rT 

M‘  yh  IN  HI  n'iNfcl.i.ttUhs*  l fWHIf  •4VH*Ut 

yx  1 nc»  »rT*iv^,mT,#i,nnn,nc^»PiH*iM««M 

k y>  *t  y » 1 1 1 | Nt  I'll  * y M 111  rA 
\>*Y*TMM  cn  ST  “I  UT»4 
y V ' V MINIMA  l-ll  ’ VM'llUA 

//U'n.miN  ’«r  4 

MltK*l>  MM  m M-UWI  » N»U  IHN  + ttW  » II  MX-M.  T »fcOND*  t • tCT*  Hint  > f 

XX  I'AAMrMAI' 

>y'y'iin  t.ri  'ivn-  1 v<u .iHHinum.MiMH  ta»AI«mmma 
*y  \ 'M'SvnniM.M'^t'n.vnrnn  in  ,fi|$M»tMA 

xx  m fii»NfcUlNK»Ui viulHS 

yi'YMIN  III  ’iN»6Ur'M'M-tf,>J!M»«»mr»mrTn) 

XX  |<|i  I.I.NAN1  aXVMN  > >■»  1* 

W'YH'M  f 'If  1 I H Ml)  ¥f'n»nAn*)li»NlT»«Y|DA» 

XV 

X»*  Vf  I'l  I NT  Ml  * YM  Ilf  r A 

vasymii*  1 1 ' 'SN%f.n*vsi'U,i»NiT»yinn^* 

x crw*  m»«ut»wh»oi 

Xx'Mi'lll'  1(1  HNH 


X Vt  t » I , | I fi  MANX  M «XYf  IN 


y x f f ox  1 >n 

v ' I 

Y*«  flX-  1 
// 


I'll  ' YSl'UTM 

r »Y?fi'i«n 

II  I VN*  U'.I'V  I .l»N  I I ••iVXUA  •'»*<»•<  Hi  A ,4)  fD|  M»«  (MOO, OH  * X4 


A IICI 


> 


pp  RT.p-Cf  RrLf/cf  JULY  LA.  I **7  b 


TPM  OS/VS  COBOL 


I 

! 


i 


????  i 

f f r-r- if 

0 i 0*“  3 
- 

«€«■*£■ 
k *^Gp6 
f ,. ’>7 

0 ^ i‘f  “ 
f rf  ! •• 
f 0 * I i 
PJri  F 
f ? 
f-r?  - 

0 1 *:  v e 
>■  o t ) (-. 

t<(!7 

A 

CP  • lc 

- 

0*  (T  l 

»■>.?? 
i ? -r?  - 


I6.HS.Al  MAP  ?0,J070 


I Of  NT  Ir  IC  AT  ION  DIVISION. 

USOGR  AM— I4>.  - C4+E-ARAV  t 

ALT HOP . 

INSTALLATION.  HO.  SAC/ADWATO  — - 

DATr-CCMPILFO.  MAR  20  , ^079  . 

SECURITY.  UNCLASSIFIED.-  - 

ENVIRONMENT  FlVlSirN.  i 

f ON  F I L44RAT-RTN  •SSC-T-KWA*  - 

*'OURC  F-CFMpUT bR.  I BM-37B— 3f!?3  . 

ChJFCT-COMPUTGFW  IfeM-3-7<»-3g3D.  

INPUT -CUT  PUT  Sl.CTICN. 

DATA  UIV4-S40N*  - 

WCF  K I NG- f:  TC  P A G r <FCTI  ON  . 

- I TFST-TAFLb.  - - - 

>3  ITEM- 2 PIC  SRI*)  CCMP  SYNC  VALUE  *3*567. 

P3  I TCP- 3 COMP-i  VALUE  I.6*a-??f+3, 

12  ITFM-a  PIC  X(  21  ) VALUE  »A  PCor-FGHIJKLMNOPORSTU*. 

<*  3 FILLER  PIC  XXX  VALUE  «PACFS,  - — 

fi  FILLER  PIC  XXXX. 

a*  I TPM— *■  PIC-  $9f  i*4---C-0MP  FV4^--V4R-L4f- -7777777777^^- 
F RPCF FURc  f IVISION. 

CALL  ‘FURTSB*  USING  TEST— TAPLF, 
o<;c-$  TUP. 

5 TOP  RUN. 


f AN  TV  f R?ir-/5!  ..  ErRTEP  DATE  = 79E8P  16/56/ 

* f UP  ROUTINE  FCRTSB  (A) 

2 0IMF*,$J  ON  Alt'.)  — 

: ncutLE  precision  dbpp,  pi 

i f<M»IVALcNCF  (1«X).  ITT8.V),  4HI,Z>  

1 X-A ( ' ) 

7 7 = A ( ’>  l ) 

C TH^  FOLLOWING  Cl*DE  rONV^PTE  CROM  DOUBLE  INTEGER  TO  BEAL*B «- 

p hi  = in 

<-  IE  ( X 1 * •LT.r  l Bl=.A-?o^a67PO*ni*.  ♦ JU 

t.BPll  = I.v!*  .A7.04O677Q6D17  +B1 

i WO  ITM^  W»-I,A4  ?)  tAI3  - 

(’6,2i>  OBPP 

C Th=  FOLLOWING  COtOE  CONVCOTS  FROM  RfAL*B  TO  PPUBfcB  INTSGEfr* 

" I r - 0BPR/,  !>'louqf.~r?of  f'iff 

IE  (DBPR.Lf .^..ANO.Ip.Lc.«»IB»I«-2  — 

81  = DP°R  - Il3*.^2t>ROhT‘'<*6DlP 

t IE  (hJ.Gf.  8 v-o or. f*» 4_.« \ c M - .44>*4967  2*60*3 

7 IF  < F.;.L.=  ,-.2IF74  936A8n!PlRl»R  !♦.  *29*067  29  6010. 

»*  lit-  - ID 

l 1 n = h 1 

- M }•*)  = Y — — 

/ ( ■. : ) = 7 

? WR  If  o (6  t j-*H  It  A ♦ ? > » A<  *1  *A  |-4fTA  I 5 f r A ( M ?Af 7 4 r AT  8 > yAl }3) y AT  *1 ) — 

" RETURN 

> T FORMA T ( • ec  kTRAN:  • , 74«,  7 V ,*!<*. 3,  IX  , 6 AA,  J X, ?1 15  ) 

2?  FORMAT  (6X,»0f)PR  = •tOlP.iG) 


H 

I 


■4  ► 

A- 89 


SUBROUTINE.  F0RTS~B“l4> 
DIMENSION  4(2) 


DOUBLE  PRECISION  OBPR,  81 

equivalence  u,xi,  <uo,n,  <m*zi 


V=A  (II 
Z=  4 (21 

The  follow  ins  Door  converts"- from  Double-! 

Bl  = Hi 

IF  (Ill..fYt))  B 1 = .68 71 9<ifTT5binnr  * in 
DSP  R = 110*. 63719476736011  ♦ Bl 


WRITE  (lib, 20)  DBPR 

THE  F D LL OWING  Z ODE  CONVERTS  TTOH"  REA. *8  TO  DOUBLE  INK 
IB  = 0BPR/.687l947673iDlt 

IF  (D BP R . L T . 3 . .4  ND.  I BTLF.  T>  IB=TT-1 

Bl  = OBPR  - IB*  *68719478736011 

TF  (Bi.GET-.-j^S^yiSiBdTJiU  Bl  = Bl  - .687T 9476736^ 
IF( Bl.LE.-. 34359738368011)  Bl  * 31*  .687 19476736011 

1 1 D = TB 

111  = Bl 

A(rr *r  

A ( 2 )=  Z 


1M1 


CALL  FCLOSE  (06) 

RETURN  

1J  FORMAT!'  FORTRAN*  ',21151 
23  FORMAT  (bxVOBPR  = *,018. 
END 


Ou -27-79 


SMUHB  « iTblZt  ACTIVITY  » -~03.  , REi>Ut 

F0RTR*N1~  -Z  -9¥T830i0«T 

D8*R  = -0.77777777760  11 

FORTRAN*  ' -2  -9058301C41 


SI 

1 7S  3 Z 

0001 

S 

SNUNB 

0002 

S 

I DENT 

0003 

ss 

USERIO 

00  04 

s 

OPTION 

0005 

s 

OPTION 

0006 

s 

ENTRY 

0007 

AS 

COBOL 

0006 

AS 

FORTY 

00  09 

AS 

EXECUTE 

00  It 
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SYS3UT 
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ENOJOB 
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ATTACHMENT  11 


The  listings  in  this  attachment  demonstrate  the  transfer 
of  a double  precision  variable  to  FORTRAN  through  an  array 
of  single  precision  variables.  The  output  shows  the  value 
of  the  double  precision  variable  and  the  character  equiva- 
lents of  the  variables  through  which  it  is  passed. 


81616  01  03-22-75 19.5.00  * _ ... . 

OOOOOO 

1 

COUBLE  PRECISION  A 

OOOOOO 

2 

A x 777777777. 

0(0000 

3 

fcRlTE  (06.201 

Q ( C C C2 

A 

CO  10  1x1,20 

000010 

5- 

. A * A ♦ 1*100000010.  ......... 

000013 

6 

CALL  SU8 (A) 

000021 

7 

10  CONTINUE 

000025 

8 

20  FORMAT  I13X,*09FR* , 15X,*X1* ,8X,* X2*l 

0CCC31 

9 

STOP 

0C0C31 

10 

enc 

02-22-79 

81616  fll_ 

fl  3-22-79 

19*501 

-OOOOOO 

1 

SUBROUJINE-SUfllXl 

. 000006 

2 

Cl MENS  ION  X (2 ) , Y (2) 

0 C0CO6 

3_ 

OQUeig  PRECISION  C8PR- 

000006 

4 

EQUIVALENCE  (03FR, Y (11) 

000006 

5 

YlllxXXll 

000006 

6 

Y (2)  xx  12) 

00 0010 

7 

kfiTTF  (06,10)  09Pfi,*(  If  ,X  (?) 

000012 

a 

10  FORMAT  (6X, £ 18.10, 6X, 46 ,6X, A6I 

— 00  0026 

9 

RETURN 

fl  C 0 C 26 

• 

10 

ENC 

-CJ5BR XI X2 

0.8777777870C  0«  7CKLR*  HCQOflO 

fl. 13777778370  10  7V8\>t  UOOOOO 

_JJ.l  77.77J78  ZZfiJUL 7J!PWJ D0.O  00  Q 

0*22777779270  10  64K4  >00000 

Q *J28 77.7.7.Z9L8.XQ-U1 850312 6 00  0 00 ■ , , 

0.35777780570  1C  86-*AX  EOOOOO 

_.0,4 37777 8137J1  10 AQk^ZS 1 000  00 

0.52777782270  10  8G.N84  TdOOOO 

._0  • 6 27777 £ 3 27C  UC 8E W#U{ GO 000 0 1 . 

0.7377778(1370  10  8FX* 


B.& £7X7705  £7.0-10 8G 


0,98777.78667  C 

JLJL 

8KOKGJ 

.0000  

0.11277778630 

11 

8h  6R 

0.1277777J9fiflL 

11 

CKXTS< 

*0000  — 

0.14377779140 

11 

8C*\. 

0. 1 €0  7 7 77.5 31 C. 

11  . 

6P\9.K 

_ - v*ooao 

0.17377779490 

11 

6LCIN4 

7*0000 

0.19777.779680 

.11— 

fiLOLX 

xoooo 

0.21777779880 

11 

ev**.a 

R 0000 
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Algorithm 


Alignment 


ANSI 


Array  (Table) 


Byte 


COBOL 


COBOL  Sentence 


* COBOL  Verb 


Code 


* Compile  Time 


Control 

Double-Word 

Double-Word 

Boundary 

File 

Fixed- Point 


Floating-Point 


GLOSSARY 


- A precise  characterization  of  a method  of 
solving  a problem  in  a finite  number  of 
steps.  (19) 

- Arrangement  of  data  on  a word  boundary. 

- American  National  Standards  Institute. 

- A collection  of  data  items,  often  of  the  same 
data  type. 

- Acronym  of  Binary  digiT. 

- A group  of  binary  digits  treated  or  operated 
on  as  a unit. 

- Computer  Language:  common  Business  Oriented 
Language. 

- A sequence  of  one  of  more  statements  specify- 
ing action  to  be  taken,  ending  with  a period 
and  a space. 

- A word  that  expresses  an  action  to  be  taken, 
by  a COBOL  compiler  or  object  program. 

- Instructions  to  the  computer  written  in  a 
computer  language. 

- The  time  at  which  a source  program  is  trans- 
lated, by  a compiler,  to  an  object  program. 

- The  program  which  is  currently  executing. 

- Two  consecutive  full-words. 

- A double-word  whose  address  is  an  even  multi- 
ple of  8 (IBM)  or  2 (Honeywell) . 

- A collection  of  data  records.  (19) 

- The  binary  point  (decimal)  is  assumed  at  the 
left  end  of  the  number;  it  cannot  move.  (19) 

- Decimal  may  "float"  (move  left  or  right) 
depending  on  value  of  exponent.  (19) 
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FORTRAN 

Full-Word 

Full-Word 

Boundary 

Function 

Half-Word 

Half-Word 

Boundary 

Hardware 

Interface 

JCL 

* Language 
Linking 

Loader 

* Mass  Storage 

Module 

Padding 

Program 

* Random  Access 


- Computer  language:  FORmula  TRANslation. 

- 4 consecutive  bytes  on  the  IBM,  or  6 con- 
secutive bytes  on  Honeywell. 

- A full-word  whose  address  is  an  even  multi- 
ple of  4 on  IBM,  or  1 on  Honeywell. 

- Allows  a programmer  to  specify  a variety  of 
activities  as  a single  operation,  i.e., 
square  root.  (19) 

- 2 consecutive  bytes. 

- A half-word  whose  address  is  an  even  multi- 
ple of  2 (IBM). 

- Actual  physical  components  of  the  computer. 

- Executed  in  conjunction  with. 

- Job  Control  Language. 

- A set  of  sequences  over  a finite  alphabet.  (19) 

- Combining  2 or  more  programs  into  a form  which 
may  be  executed  as  a single  program. 

- That  portion  of  the  computer  which  transfers 
a program  into  main  memory  in  a form  suitable 
for  execution.  (14) 

- A storage  medium  on  which  data  may  be  organized 
and  maintained  in  both  a sequential  and  non- 
sequential manner. 

- Logically  self-contained  and  discrete  part  of 
a larger  program.  (19) 

- Adding  characters  to  a data  item,  usually  to 
make  it  a full-word  or  end  on  some  word 
boundary  (see  "Slack  Bytes") . 

- A specification  of  the  sequence  of  computa- 
tional steps  in  a particular  language.  (19) 

- An  access  mode  in  which  the  program-specified 
value  of  a key  data  item  identifies  the  logi- 
cal record  that  is  obtained  from,  deleted  from, 
or  placed  into  a relative  or  indexed  file. 
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